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062763 



TITLE TSPLAS 
ENABLE LC 
DSABLE GBL 
ENABL AMA 



— Programmed Logical Address Space Support 



This module contains the routines to implement PLAS support for TSX-Plus. 



Copyright (c) 1983, 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved 



TSPLAS: 



PSECT TSPLAS 
RAD50 /PLS/ 



Global definitions 

. GLOBL SEGIN, SEGOUT, lASEGS, EMTPLS, PLSXIT, PLSOFF, MAPPLS, PLSINI 



Global references 



GLOBL LEASE, KPAR6, RC*INM. RC*FLG, RC*LEN, RC**SZ, OVRHC 

GLOBL RC*BAS, Q. BLKN, Q. PAR, Q. COMP, SEGCHN, GETSYQ 

GLOBL Q. WCNT, SYQIO, CS*ERR, CS*EOF, EM*SSE, OUTBSY, OUTSWP 

GLOBL INBSY, RC*BLK, RC*USE, KEYRCB, KEYPAR 

GLOBL LBASE, LNBLKS, VPLAS, *INDRN, LSW5 

GLOBL EMTBLK, BADEMT, RCBBAS, RCBEND, SETERR, R. GSIZ, TRYMEM 

GLOBL VSWPFL, LNSBLK, R. GID, R. GSTS, EMTXIT 

GLOBL LSW6, RS. CRR, TRYPLS, INSFIN, TRYRON, PRIVC2, P2*CGR 

GLOBL SR*PX, SR*PAR, SR*PDR, SR*FLG, SR. MOR, WC*MAP, WC. MAP, WC. FST 

GLOBL MEMXPN, URO, WCBBAS, WC*RCB, WC**SZ, WCBEND, VALADW 

GLOBL WC*SIZ, WC«PAR, WC*NPR, WC«LEN, WC*VLO, WC*VHI, WC*TRP 

GLOBL W. NID, W. NBAS, W. NSIZ, WS. CRW, WS. ELW, WS. UNM, WS. OVR 

GLOBL W. NSTS, WS. MAP, NUMWCB, W. NOFF, W. NLEN, UPDRO, UPARO 

GLOBL RPDR, RPAR, SETMAP, WC*OFF, W. NRID, CXTPAG, CORUSR 

GLOBL RC*PAO, LMEMIN, VCORTM, LMINQ, LQUAN, RS. NEW, RS. NAL 

GLOBL RC*SFA. LCXPAR, FREMEM, CUPARO, CUPDRO, RC*OFF 

GLOBL RS. GBL, RS. CGR, RS. PVT, R. NAME, RC*NAM, RC*EXI, RC*GBL 

GLOBL RC*PVT, SHRRCB, SHRRCN, RC*EXC, RC*OWN, RS. AGE, RC*AEP 

GLOBL RS. EX I, RC*AGE, SWPFRC, SCPGET, SP*CMD, SP*JOB, SP*DW1 

GLOBL SA*RGN, S*WFM, QNSPND, CHKABT, RC«CNT 

GLOBL RS. EGR, RS. UNM. RC*LCG, RC*UNM 

GLOBL RS. DSP, RC*DSP, IDSFLG, *UDSPC, LSWl 1 

GLOBL RDDR, UDDRO, CUDDRO, RDAR, UDARO, CUDARO 



Macro to print an error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print, 
ARG = (Optional) argument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 
. MACRO DIE MSG, ARG 
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MOV hSG, @#DIEMSe 

. IF NB, ARG 

MOV ARO, @#DIEARG 

. ENDC 

CALL e#SYSHLT 

. ENDM DIE 

Macro to call a system overlay 

. MACRO OCALL ENTADD 

.IF B, ENTADD 

.ERROR ; OCALL without entry address 

. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 
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Symbolic equates for error codes 



ECO 

ECl 

EC2 

EC3 

EC4 

ECS 

EC6 

EC 7 

EClO 

ECU 

EC12 

EC14 

EC15 

EC20 

EC21 
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Local data areas 



SCBRCB 


. WORD 





SCBBAS 


. WORD 





SCBLEN 


. WORD 





SCBBLK 


. WORD 





SSMAP: 


. WORD 






/Address of region control block 

; Memory address for region insuap/outsuiap 

i Number of 64-byte blocks to read/uirite 

j Block number in region swap file 

i Address of base of PLAS swap file free block bit tbl 
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SBTTL EMTPLS 



Dispatch PLAS EMT's 



EMTPLS is jumped to from TSEMT when a PLAS EMT is executed. 
It dispatches control to the appropriate routine based on the 
EMT sub-function code. 



;Get sub-function code 

jMake sure it's not too big? 

» Br if ok 

; Invalid sub-function code 

/Convert to uiord-table index 

/Dispatch to processing routine 



EMTPLS: 


MOVB 


EMTBLK, RO 




CMP 


RO, #MXPLAS 




BLO 


1$ 




JMP 


BADEMT 


1*: 


ASL 


RO 




JMP 


@PLSJMP<RO) 


1 

; PLAS 


EMT J urn 


p vector 


PLSJMP: 


. WORD 


CRRG 




. WORD 


ELRG 




. WORD 


CRAW 




. WORD 


ELAW 




. WORD 


MAP 




. WORD 


UNMAP 




. WORD 


OMCX 


* 

MXPLAS 


= 


<. -PLSJMP>/ 






. CRRG 


1 


. ELRG 


2 


. CRAW 


3 


. ELAW 


4 


. MAP 


5 


. UNMAP 


6 


. GMCX 
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000056 



000056 004737 004632 ' 



000062 
000066 
000072 
000074 



000100 
000104 
000110 
000112 
000116 
000120 
000124 
000126 
000134 
000136 
000142 



000146 
000152 
000154 
000162 
000164 
000170 
000172 



106564 
042716 
011602 
106664 



113701 
032702 
001416 
105737 
001003 
012700 
000406 
032761 
001004 
012700 
000137 



032702 
001411 
032761 
001005 
032702 
001002 
000137 



000021 
004764 ' 
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= 3BTTL . CRRO — Create PLAS region 

i The . CRRG EMT is used to create a new PLAS region. 

> 

CRRG: 

i 

i Set up pointer to user's Region Definition Block <in R4) 

CALL 6ETUDB i Get addr of user's RDB in R4 

Initialize status flags in user's Region Definition Block <RDB) 

MFPD R. GSTS<R4> i Get status flags from user's RDB 

BIC #<RS. CRRiRS. UNM!RS. NALIRS. NEW>. <SP) i Clear some status flags 

MOV (SP),R2 i Save the status flags 

MTPD R.0STS(R4) ; Store flags back into RDB 

If this is a request to create a D-space region* see if it is allowed 

Get job index number 

Is this a D— space request? 

Skip test if not 

Does machine support separate D-space? 

Br if yes 

If not. say machine can't do it 

Go abort 

i Has job enabled separate I- and D-space? 
OK/ D-space PLAS region is allowed 
If not/ say it hasn't been enabled yet 
abort request 

Determine if we are creating a private or a shared region 



OOOOOOG 
OOOOOOC 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 

000020 

OOOOOOG OOOOOOG 2*: 



3*: 



MOVE 


CORUSR.Rl » 


BIT 


#RS. DSP/ R2 } 


BEQ 


1* i 


TSTB 


IDSFLG / 


BNE 


2* i 


MOV 


#EC20/ RO ; 


BR 


3* / 


BIT 


#*UDSPC.. LSWIKRI) 


BNE 


1$ i 


MOV 


#EC21/R0 ; 


JMP 


PLSERR i 



OOOOOOC 

OOOOOOG OOOOOOG 
OOOOOOG 
000666 ' 



1*: 



BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 
JMP 



#<:RS. GBL!RS. CGR>/ R2 /Creating a named region? 



PVTRGN 

#*INDRN/LSW5<R1) 

PVTRGN 

#RS. PVT/ R2 

PVTRGN 

SHRRGN 



Br if not 

Is IND running? 

Force its named regions to be private 

Private named region? 

Br if yes 

Go create shared region 
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— Create a private region 

. SBTTL PVTRGN — Create a private region 



000176 



000176 032702 OOOOOOC 
000202 001416 



000204 004737 003222 ' 
000210 103404 



000212 004737 003722' 
000216 000137 000424' 



000222 032702 0000000 

000226 001004 

000230 012700 000012 

000234 000137 004764' 



000240 004737 003476 ' 



Create a region that is private to the creating job. 

Note« the region may be either a named ("global") region or an unnamed 

PLAS region. 

Inputs: 
R2 = Status flags from user's Region Definition Block. 
R4 = Pointer to RDB. 

PVTRGN: 

See if this is a named or unnamed region. 

BIT #<RS. OBLIRS. CGR>, R2 ; Creating a named region? 
BEQ 15* i Br if not 

This is a named region. 

Try to find an existing local RCB with the same name. 



i 

ff 
C 



CALL 
BCS 



FLRCB 
2« 



;Look for local RCB with the same name 
j Br if not found 



The requested region already exists. 



CALL 
•JMP 



CHKATT 
13* 



;liake sure attachment is valid 
i Return info to user and exit 



i 



We want to create a new region. 
See if that is allowed. 



2*: 



BIT 


#RS. CeR> R2 


BNE 


15* 


MOV 


#EC12, RO 


JMP 


PLSERR 



j Can we create a new region? 

i Br if yes 

i Return error code 12 



000244 052765 OOOOOOC OOOOOOG 



000252 016503 OOOOOOG 

000256 001004 

000260 012700 000010 

000264 000137 004764' 

000270 010300 

000272 004737 OOOOOOG 

000276 103520 



i Get a free local RCB and initialize it. 

i 

15*: CALL GLRCB i Get a free local RCB 

i 

; The address of a free Region Control Block is in R5. 
i Do some initialization of the RCB. 

i 

BIS #<RC*PVT!RC*EXC!RC*OFF>» RC*FLG<R5) .Private region 

i 

i See if we can find free memory space for the region. 

iGet # 512-byte pages needed by region 
i Br if specified size not zero 
i Return error code 10 



18*; 



MOV 


RC*PAG<R5),R3 


BNE 


18* 


MOV 


#EC10, RO 


JMP 


PLSERR 


MOV 


R3, RO 


CALL 


TRYMEM 


BCS 


4* 



5 See if we can get free memory for the request 
i Br if unable to get a free memory area 



We got a free memory space for the region 
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010265 


OOOOOOG 
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052765 


OOOOOOG OOOOOOG 
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001421 
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006670 ' 
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103010 






69 


000334 


072027 


000003 
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000340 


010037 


OOOOOOG 




71 


000344 


010502 






72 


000346 


004737 


006610' 




73 


000352 


000541 






74 


000354 


010265 


OOOOOOG 


5*: 


75 


000360 


052765 


OOOOOOG OOOOOOG 
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79 


000366 


060361 


OOOOOOG 


6*: 


SO 


000372 


060361 


OOOOOOG 




81 


000376 


106564 


OOOOOOG 




82 


000402 


052716 


OOOOOOG 




83 


000406 


032716 


OOOOOOG 




84 


000412 


001402 






85 


000414 


052716 


OOOOOOG 




86 


000420 


106664 


OOOOOOG 


19* 


87 
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89 










90 


000424 


112765 


000001 OOOOOOG 


13* 


91 


000432 


016500 


OOOOOOG 




92 


000436 


052700 


OOOOOOG 




93 


000442 


106564 


OOOOOOG 




94 


000446 


012602 






95 


000450 


032702 


OOOOOOG 




96 


000454 


001402 






97 


000456 


052700 


OOOOOOG 




98 


000462 


032702 


OOOOOOG 


7*: 


99 


000466 


001402 






100 


000470 


052700 


OOOOOOG 




101 


000474 


032702 


OOOOOOG 


8*: 


102 


000500 


001402 






103 


000502 


052700 


OOOOOOG 




104 


000506 


010065 


OOOOOOG 


20* 
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110 
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106564 
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052716 


OOOOOOG 
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106664 
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000137 
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114 








i 



ASH #3, R2 J Convert 512-byte block # to 64-byte block # 

MOV R2, RC*BAS<R5) ; Set physical memory base of region 
BIS #RC*INM, RC*FLG(R5)i Set flag saying region is in memory 

Allocate space in region suiap file for this region 



TSTB VSWPFL 

BEQ 6* 

MOV R3, RO 

CALL SWPGET 

BCC 5* 

ASH #3, RO 

MOV RO, URO 

MOV R5, R2 

CALL SEGFRE 

BR 14* 

MOV R2, RC*BLK(R5) 

BIS #RC*SFA, RC«FLG 

Allocation is complete. 

ADD R3. LNSBLK<R1) 

ADD R3, LMEMIN(R1> 

MFPD R.0STS<R4) 

BIS #RS. NAL> (SP) 

BIT #RS. GBLi <SP) 

BEQ 19* 

BIS #RS. NEW, (SP) 

MTPD R.0STS<R4) 



i Is this a non~stuapping system? 
i Br if non-swapping system 
i Get number of blocks needed 
; Try to allocate space in suiap file 
; Br if allocation uias successful 
i Convert largest swap file space to 64-byte 
i Return largest size to user in RO 
i Get address of RCB to R2 for SEGFRE 
{Release memory allocated for the region 
i Return error to user 

i Save swap file block number for region 
(RS) ; Remember that space has been allocated 



Increase # pages allocated to regions 

Increase total number of pages used by job 

Get RDB status flags 

Say this is a new allocation 

Is this a named region? 

Br if not 

We created a neut named region 

Store flags back into RDB 



Set some status flags in RCB 

; Set attachment count to 1 
J Get current RCB status flags 
J Say the RCB is active 
»Get status flags from RDB 

Automatic elimination wanted? 

Br if not 

Set automatic-elimination-pending flag 

Eliminate region on exit? 

Br if not 

Set flag 

Is this a D-space region? 

Br if not, I-space is default 

If so, remember for mapping time 

Store new flags back into RCB 

Return information to user's region definition block 

MOV R5, -<SP) {Return address of RCB to user 

MTPD R. GID<R4) 

MFPD R. GSTS(R4) i Get old status flags from RDB 

BIS #RS. CRR, (SP) i Set created-reg ion flag 

MTPD R. GSTS(R4) i Store back into RDB 

JMP EMTXIT i Finished with EMT 



MOVB 


#1,RC*CNT(R5) 


MOV 


RC*FLG(R5),R0 


BIS 


#RC*USE, RO 


MFPD 


R. GSTS(R4) 


MOV 


(SP)+, R2 


BIT 


#RS. AGE. R2 


BEQ 


7* 


BIS 


#RC*AEP, RO 


BIT 


#RS. EXI,R2 


BEQ 


8* 


BIS 


#RC*EXI,RO 


BIT 


#RS. DSP, R2 


BEQ 


20* 


BIS 


#RC*DSP, RO 


MOV 


RO, RC*FLG(R5) 
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000540 
000544 
000546 
000552 
000554 
000560 
000562 
000566 
000570 
000572 
000574 



000576 
000600 



000602 
000604 
000610 
000612 
000616 



000624 
000630 
000634 
000640 
000644 



000646 
000652 
000656 
000662 



105737 
001440 
004737 
010046 
013700 
005200 
004737 
012602 
020002 
101401 
010200 



020300 
101022 



010300 
004737 
103416 
010265 
052765 



066100 
010061 
066100 
004737 
000667 



072027 
010037 
012700 
000137 



ooooooe 

OOOOOOG 
0000000 
006670 ' 



Cannot get a free memory region large enough for region. 

Determine the size of the largest region we will alloui to be created. 

4*: TSTB VSWPFL sis this a non-swapping system? 

Br if yes — we can't consolidate memory 

Determine # user pages we could get 

Save free memory space 

Get # blocks allocated for PLAS swap file 

Get more than total possible size 

See how big largest swap file region is 

Get free memory space size 

Save smaller of free memory or swap region 



Ue now know the size of the largest possible region that 
we can allocate (Size in terms of 512-blocks is now in RO). 
See if it is possible to satisify this request. 



TSTB 


VSWPFL 


BEQ 


12$ 


CALL 


TRYPLS 


MOV 


RO, -<SP) 


MOV 


VPLAS, RO 


INC 


RO 


CALL 


SWPGET 


MOV 


(SP)+, R2 


CMP 


RO, R2 


BLOS 


10* 


MOV 


R2, RO 



10*: 



CMP 
BHI 



R3, RO 
12* 



i Is request larger than largest possible? 
J Br if yes — Can't possibly do allocation 



It is possible to allocate this region, but we will have to do 

some job swapping to collect free memory. 

Go ahead and allocate space for the region in the region swap 



file. 



006670 ' 

OOOOOOG 
ooooooe OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

CALL 

BCS 

MOV 

BIS 



R3, RO 

SWPGET 

12$ 

R2, RC*BLK<R5) 



Get # blocks needed for the region 
Allocate space in the swap file 
This branch should never be taken 
Save block number for region in swap 



file 



#<RC*USE.'RC*SFA>, RC*FLG(R5) ; Region active and swap space 



Swap job to expand memory and allocate space for region 



ADD LNSBLK(R1),R0 

MOV RO. LNSBLK(Rl) 

ADD LNBLKS(R1),R0 

CALL MEMXPN 

BR 13* 



Add num blocks already used by plas regions 
This is total space for all regions 
Add space used by base portion of job 
Do job swapping to expand memory space 
Go finish up 



We are unable to satisfy the request. 

Return largest possible region to user in RO. 



000003 
OOOOOOG 
000007 
004764 ' 



12*: 


ASH 




MOV 


14*: 


MOV 




JMP 



#3, RO 
RO, URO 
#EC7, RO 
PLSERR 



i Convert # 512-byte blocks to # 64-byte blocks 
j Return size of largest region in RO 
; Return error code # 7 
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. SBTTL SHRRGN — Create a shared region 

SHRRGN is called to create a shared memory region. 

Inputs: 
R2 = Status flags from user's Region Definition Block. 
R4 = Pointer to RDB. 

SHRRGN; 

See if me are authorized to access global regions 



000666 



000666 032737 OOOOOOG OOOOOOG 

000674 001006 

000676 012700 000007 

000702 005037 OOOOOOG 

000706 000137 004764' 



BIT 
BNE 
MOV 
CLR 
JMP 



#P2*CGR,PRIVC2 

23* 

#EC7, RO 

URO 

PLSERR 



iAre me authorized for global regions? 

i Br if yes 

j Return error code 7 if not 

;Max size of region = 



000712 004737 003322' 

000716 103406 

000720 016305 OOOOOOG 

000724 004737 003722 ' 

000730 000137 001424' 



Try to find a local RCB that is connected to a shared region with 
the same name. 

23«: CALL FLCRCB i Look for local RCB connected to global 

Br if cannot find local RCB 
Get pointer to associated global RCB 
See if we can attach to this region 
Found local RCB 

We cannot find a local RCB that is attached to the region. 
See if there is a global RCB for the region. 



CALL 


FLCRCB 


BCS 


21* 


MOV 


RC*BLK<R3),R5 


CALL 


CHKATT 


JMP 


20* 



000734 004737 003414' 
000740 103424 



21«: 



CALL 
BCS 



F6RCB 
16* 



J Look for global RCB for region 

j Br if can't find global RCB either 



We found a global RCB for the region but do not have a local RCB. 
Create a local RCB for the region. 



000742 004737 003722 ' 

000746 010546 

000750 004737 003476 ' 

000754 010503 

000756 012605 

000760 052763 OOOOOOC OOOOOOG 

000766 005763 OOOOOOG 

000772 001165 

000774 016563 OOOOOOG OOOOOOG 

001002 016563 OOOOOOG OOOOOOG 

001010 000556 



CALL 

MOV 

CALL 

MOV 

MOV 

BIS 

TST 

BNE 

MOV 

MOV 

BR 



CHKATT 
R5, -<SP) 
GLRCB 
R5, R3 
(SP)+, R5 



; See if ue can attach to this region 

; Save address of global RCB 

iGet a free local RCB <R5 = address) 

; Get address of local RCB 

iGet address of global RCB 



#<RC*GBL!RC*EXC!RC*LCG>, RC*FLG(R3) ilnit local flags 

RC*LEN(R3) >Was specified region size 0? 

4* ; Br if not 

RC*LEN(R5), RC*LEN(R3) sCopy length info from global RCB 

RC*PAG(R5),RC*PAG(R3) 

4* j Go transfer info to local RCB 



The named region does not now exist. 
See if (De want to create a new one. 



001012 032702 OOOOOOG 

001016 001004 

001020 012700 000012 

001024 000137 004764' 



16*: 



BIT 


#RS. CGR, R2 


BNE 


17* 


MOV 


#EC12. RO 


JMP 


PLSERR 



i Can we create a new region? 

J Br if yes 

; Return error code 12 



We want to create a new region. 
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001030 
001034 
001036 
001042 
001046 
001050 
001054 



001060 
001066 
001074 
001100 
001102 
001110 
001114 
001116 



001124 
001130 
001134 



001136 
001142 
001146 
001150 



001152 
001156 
001162 
001164 
001170 
001174 



001176 
001202 
001206 



001210 
001212 



004737 
010503 
004737 
005765 
001004 
012700 
000137 



052765 
052763 
032702 
001403 
052765 
032702 
001403 
052765 



113701 
105737 
001006 



016500 
004737 
103550 
000412 



004737 
026500 
101142 
016500 
004737 
103405 



072227 
010265 
000446 



005702 
001526 



Get a free local and global RCB. 



003476 ' 

003542 ' 
OOOOOOG 

000010 
004764 ' 



17*: 



CALL 


OLRCB 


nov 


R5, R3 


CALL 


GGRCB 


TST 


RC*LEN(R5) 


BNE 


2$ 


MOV 


#EC10iR0 


JMP 


PLSERR 



Get a local RCB (R5 = address) 

Get address of local RCB 

Get a global RCB (R5 = address) 

Was specified region size 0? 

Br if not 

Return error code 10 



OOOOOOC OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



000003 
OOOOOOG 



R3 = Address of free local RCB. 
R5 = Address of free global RCB. 
Initialize the RCB's. 

2*: BIS #<RC*GBL!RC*EXC>, RC*FLG(R5) j Initialize status flags 

BIS #<RC*OBL!RC*EXC!RC*LCG>, RC«FLG<R3) ilnit local flags 

BIT #RS. AGEi R2 i Is automatic elimination wanted? 

BEQ 24* i Br if not 

BIS #RC*AEP* RC*FLG<R5) * Remember automatic elim pending 

24*: BIT #RS. DSP,R2 > Is this to be a D-space region? 

BEQ 5* i Br if not 

BIS #RC*DSP# RC*FLG<R5) ; Remember to use D-space mapping 

Determine hou much memory space can possibly be allocated for 
a shared region. 



5*: 



MOVE 
TSTB 
BNE 



CORUSR^Rl 

VSWPFL 

7* 



i Get current job indent number 
i Is this a swapping system? 
} Br if yes 



Do memory allocation for non-suiapping system 



MOV 


RC*PAG(R5),R0 


CALL 


TRYMEM 


BCS 


10* 


BR 


13* 



; Get requested # of pages 

; See if a large enough area is available 

i Br if not 



Do memory allocation for swapping system 



7*: 



CALL 


TRYPLS 


CMP 


RC*PAG<R5),R0 


BHI 


10* 


MOV 


RC*PAG(R5),R0 


CALL 


TRYRGN 


BCS 


8* 



{Determine largest possible PLAS region 

; Do we want more than is possible? 

i Br if yes 

i Get requested number of pages 

; See if area is available now 

i Br if not available now 



We were able to allocate the region. 

Set up information in the Region Control Block. 



13*: ASH #3, R2 

MOV R2, RC*BAS(R5) 
BR 15* 



; Convert 512-byte page # to 64-byte block # 
> Remember base of allocated area 



The requested memory space is not currently available. 



8*: 



TST 
BEQ 



R2 
10* 



i Is it possible to allocate that much space? 
i Br if not (RO contains largest space poss. ) 
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115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



001214 
001222 
001226 
001234 
001236 
001244 
001252 
001256 
001262 



001264 
001270 
001274 
001300 
001304 
001306 
001312 
001314 
001322 



001324 
001332 
001336 
001342 



001346 
001354 
001360 
001364 
001366 
001374 
001402 
001404 
001412 
001420 



001424 
001430 
001432 
001436 



001442 
001444 



052765 
005065 

010546 

112765 
110165 
011665 
012605 



012700 
004737 
004737 
016500 
001767 
020027 
001004 
042765 
000713 



052765 
106564 
052716 
106664 



052763 
106564 
032726 
001403 
052763 
032765 
001403 
052763 
016563 
010563 



105763 
001004 
005263 
005265 



010346 
106664 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



It is possible to get the requested space but we uill have to 

do some job swapping to consolidate the free space. 

BIS #RC*USE, RC*FLG(R5) i Remember this RCB is in use 

CLR RC$BAS(R5> ; Say no memory allocated yet 

OCALL SWPFRC ; Outswap any jobs in area we want 

MOV R5, -(SP) ; Save address of RCB 

OCALL SCPGET ; Get a swap command packet 

MOVE #SA*RGN> SP*CMD<R5>i Set command for swapper 

MOVB Rl, SP*J0B(R5) i Set our job number 

MOV (SP), SP*DW1(R5) iSet address of RCB in SCP 

MOV <SP)+,R5 iGet back address of RCB 



Suspend our job until the job swapping is completed 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

177777 

OOOOOOG OOOOOOG 



14*: 



MOV 


#S$WFM< RO 


CALL 


GNSPND 


CALL 


CHKABT 


MOV 


RC*BAS<R5),R0 


BEQ 


14* 


CMP 


RO, #-1 


BNE 


15* 


BIC 


#RC*USE, RC*FL 


BR 


7* 



Waiting-f or-memory state 

Suspend job till swapping completes 

See if we were aborted while asleep 

Was memory allocated for the region? 

Br if not 

Was memory actually allocated by swapper? 

Br if yes 
5) i Say RCB is not in use 
; Go back and try the whole process again 



We have finished allocating space for the region 



OOOOOOC 
OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOC 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 15*: 



BIS #<RC*INMiRC*USE>, RC*FLG(R5); Region in memory & in use 

MFPD R, GSTS<R4) /Get RDB status flags 

BIS #<RS. NEW .' RS. NAL>, ( SP ) i Say new region was created 

MTPD R. GSTS<R4) i Store flags back into RDB 

Transfer some information from global RCB to local RCB 



OOOOOOG 4*: BIS #<RC*INM !RC*USE>, RC*FLG<R3) i Set flags in local RCB too 

MFPD R. GSTS<R4) i Get flags from user's RDB 

BIT #RS. EXI. <SP)+ J Is elimination on program exit wanted? 

BEQ 25* /Br if not 

OOOOOOG BIS #RC*EXI* RC*FLG<R3) /If yes/ set automatic elimination flag 

OOOOOOG 25*: BIT #RC*DSP/ RC*FLG<R5> i Does global region use D-space? 

BEQ 6* i Br if not 

OOOOOOG BIS #RC*DSP/ RC*FLG<R3) /If yeS/ remember to map local thru D~spac( 

OOOOOOG 6*: MOV RC*BAS(R5) / RC*BAS(R3) /Base memory page for region 

MOV R5/ RC*BLK(R3) /Set pointer to global RCB in local RCB 

Increment attachment counts 



20*: 



TSTB 


RC*CNT<R3) 


BNE 


22* 


INC 


RC*CNT<R3) 


INC 


RC*CNT<R5) 



/Are we already attached to local RCBT' 

/Br if yes 

/Say local attachment count = 1 

/ Increment global attachment count 



Return information to user's Region Definition Block 



22*: 



OOOOOOG 



MOV 
MTPD 



R3, -<SP) 
R. GID<R4) 



/Return address of local RCB to user 



i 
I 
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001450 
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001454 
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001460 
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001464 
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001470 
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001474 
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001500 
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001504 
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106564 OOOOOOG 

052716 OOOOOOG 

106664 OOOOOOe 

000137 OOOOOOG 
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» Get old status flags from 
; Set created-region flag 
; Store back into RDB 
/Finished with EMT 



We cannot allocate as large a region as was requested. 
Return the size of the largest possible region. 



MFPD 


R. GSTS<R4) 


BIS 


#RS. CRR, (SP) 


MTPD 


R. 6STS<R4) 


JMP 


EMTXIT 



RDB 



072027 000003 

010037 OOOOOOG 

012700 000007 

000137 004764' 



10*: 



ASH 
MOV 
MOV 
JMP 



#3. RO 
RO, URO 
#EC7, RO 
PLSERR 



; Convert # 512-byte pages to # 64-byte pages 
iReturn largest region size in RO 
/Return error code 7 
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— Eliminate a PLAS region 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



001510 004737 004632' 



001514 106564 OOOOOOS 

001520 012602 

001522 010200 

001524 004737 004714' 



001530 032762 OOOOOOG OOOOOOG 

001536 001402 

001540 000137 001576' 



. SBTTL . ELRO — Eliminate a PLAS region 

.ELRG EMT eliminates a PLAS region. 

ELRG: CALL GETUDB i Get addr of user's Region Definition Blk (R4) 

Get address of Region Control Block 

MFPD R. GID<R4} * Get address of region control block 

MOV (SP)+, R2 

MOV R2, RO iGet RCB address to RO for CHKRCB 

CALL CHKRCB J Make sure RCB address is valid 

Determine if this is a private or shared region. 

BIT #RC*LCG, RC*FLG<R2) i Is this a shared region? 

BEQ ELMPVT i Br if not 

JMP ELMSHR > Eliminate a shared region 
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. 3BTTL ELMPVT — Eliminate a private region 

> Eliminate a private (non-shared) region. 

i 

i Inputs: 

i R2 = Pointer to Region Control Block 

i R4 = Pointer to User's Region Definition Block 



001544 



001544 
001552 



ELMPVT: 



032762 
001405 



OOOOOOG OOOOOOG 



Always eliminate unnamed regions 

BIT #RC*QBL» RC*FLG<R2) »Is this a named region? 
BEQ 2* i Br if not named 

This is a named region that is being eliminated. 
Free named region if the RS. EOR flag is set 



001554 
001560 
001564 



106564 
032726 
001426 



OOOOOOG 
OOOOOOG 



MFPD R. GSTS<R4) 
BIT #RS. EGR, <SP) + 
BEQ ELMCOM 



j Get status flags from user's RDB 
i Eliminate global region flag set? 
i Br if not — Just detach from region 



001566 052762 OOOOOOG OOOOOOG 2*: 
001574 000422 



We want to eliminate this region. 

BIS #RC*AGEi RC*FLG<R2) ; Force elimination of the region 
BR ELMCOM ; Now go detach from region 
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— Eliminate a shared region 

. SBTTL ELMSHR — Eliminate a shared region 

Eliminate a shared region. 

Inputs: 
R2 = Pointer to local copy of RCB for region. 
R4 = Pointer to User's Region Definition Block 

ELMSHR: MOV RC*BLK<R2) , R3 i Get pointer to global RCB 

See if uie are detaching from the region or eliminating it. 

i Get status flags from user's RDB 
jEliminate global region flag set? 
j Br if not 

We are to eliminate the region. 

Make sure no one else is attached to region. 



001576 016203 OOOOOOG 



001602 106564 OOOOOOG 
001606 032726 OOOOOOG 
001612 001413 



MFPD 


R. GSTS(R4) 


BIT 


#RS. EGR, (SP> + 


BEQ 


ELMCOM 



001614 126327 OOOOOOG 000001 

001622 001404 

001624 012700 000014 

001630 000137 004764' 

001634 052763 OOOOOOG OOOOOOG 1*: 



CMPB RC*CNT(R3),#1 

BEQ 1$ 

MOV #EC14, RO 

JMP PLSERR 

BIS #RC*AGE* RC*FLG<R3) ; Force elimination of global region 



j Are ue the only attached job? 

i Br if yes 

i Return error code 14 



001642 004737 004010 



Call RELRGN to do the actual release 
ELMCOM: CALL RELRGN ; Release the region 

Clean out user's RDB 



001646 005046 

001650 106664 OOOOOOG 

001654 005046 

001656 032762 OOOOOOG OOOOOOG 

001664 001402 

001666 052716 OOOOOOG 

001672 106664 OOOOOOG 9*: 



001676 000137 OOOOOOG 



CLR 

MTPD 

CLR 

BIT 

BEQ 

BIS 

MTPD 

Finished 

JMP 



-(SP) 

R. GID<R4) < Zero Region ID number 

-(SP) ; Zero region status word 

#RC*UNM» RC*FLG(R2) iDid uie unmap any windows? 

9* iBr if not 

#RS.UNM, <SP) {Report to user if we did 

R. GSTS<R4) i Return status word 
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i 
2 
3 
4 
5 
6 
7 
8 
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10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001702 004737 004632' 



00 1 706 1 06 564 0000000 
001712 042716 OOOOOOC 
001716 106664 OOOOOOG 



001722 106514 

001724 012602 

001726 105002 

001730 010200 

001732 000302 

001734 020227 000007 

001740 101070 



001742 012705 OOOOOOG 

001746 052700 000001 

001752 005765 OOOOOOG 

001756 001412 

001760 005200 

001762 062705 OOOOOOG 

001766 020527 OOOOOOG 

001772 103767 



001774 012700 000001 
002000 000137 004764' 



. SBTTL . CRAW — Create a virtual address uiindouj 
The . CRAW EMT is used to create a PLAS virtual address ujindouj. 
CRAW: CALL GETUDB ; Get address of luindou def block to R4 

Initialize status flags in W. NSTS 



MFPD 

BIC 

MTPD 



W. NSTS(R4> i Get current status flags 
#WS. ELWIWS. UNM.'WS. CRW, <SP) i Clear misc flags 



W. NSTS(R4) 
Get and check the APR value 



MFPD 


(R4) 


MOV 


(SP)+, R2 


CLRB 


R2 


MOV 


R2, RO 


SWAB 


R2 


CMP 


R2, #7 


BHI 


2$ 



{Return flags to user 



; Get APR value (high byte) 

i Clear low-byte 

> Save word with APR number in high-byte 

; Get APR number to low byte 

; APR must be in the range to 7 

i Br if invalid APR number 



Find a free window control block 



1«: 



MOV 
BIS 
TST 
BEQ 
INC 
ADD 
CMP 
BLO 



#WCBBA5. RS 

#1,R0 

WC*SIZ<R5) 

3* 

RO 

#WC«$SZ> R5 

R5, #WCBEND 

1* 



Point to 1st WCB 

First WCB is # 1 

Is this WCB in use? 

Br if not 

Keep track of the WCB number 

Point to next WCB 

Have we checked all WCB's? 

Br if not 



Error 



There are no free window control blocks 



MOV 
JMP 



#EC1,R0 
PLSERR 



i Return error code 1 



We found a free WCB (its address is in R5) 

Init some cells 

Return ID number to user 



002004 112765 177777 OOOOOOG 3«: MOVB 

002012 010046 MOV 

002014 106664 OOOOOOG MTPD 

002020 106564 OOOOOOG MFPD 

002024 012665 OOOOOOG MOV 

002030 106564 OOOOOOG MFPD 

002034 012600 MOV 

002036 004737 004714' CALL 

002042 010065 OOOOOOG MOV 



#-li WC4»TRP (R5> j Say not associated with any fast maps yet 

ROi-(SP) /Push WCB id number and APR number 

W. NID(R4) i Return to user 

W. N0FF<R4) ;Get specified offset into region 

(SP)+» WC*0FF(R5) iAnd set into web 



W. NRID<R4) 

(SP)+, RO 

CHKRCB 

RO, WC*RCB(R5) 



Get region identifier 

from user wdb 
Verify that it is valid 
And set into web 



Set up information about base virtual address of the window 



002046 006302 

002050 110265 OOOOOOG 

002054 072227 000014 



ASL R2 

MOVB R2, WC*PAR(R5) 

ASH #12. , R2 



iGet 2#APR number 

i Save APR index 

i Convert APR # to virtual address 



i 
i 
f 

f 

( 
I 

c 

i 
I 

C 
< 
i 
i 
I 

i 
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i 
I 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



Programmed Logical Ad MACRO V05. 05 
Create a virtual address uiindoui 



002060 
002064 
002066 



002072 
002076 
002100 
002102 
002104 
002106 
002112 
002114 
002120 
002122 
002126 
002132 
002136 
002142 
002144 



002150 
002154 
002156 
002162 
002166 

002170 
002174 
002200 
002202 
002204 
002206 
002214 
002216 
002224 



002226 
002232 
002236 
002242 
002244 
002246 
002250 
002254 
002256 
002262 
002266 
002272 
002276 
002300 



010265 
010246 
106664 



106564 
012603 
001410 
000241 
006002 
072227 
060302 
020227 
101404 
012700 
000137 
010365 
072227 
005302 
010265 



106564 
012603 
052703 
032703 
001044 

012702 
005762 
001432 
020205 
001430 
026265 
101424 
026265 
103020 



052703 
005062 
105762 
001407 
010546 
010205 
004737 
012605 
052703 
005062 
062702 
020227 
103736 
010346 



OOOOOOG 
OOOOOOG 

OOOOOOG 



Wednesday 


18- Jan -89 12: 


MOV 


R2, WC*VL0(R5) 


MOV 


R2, -(SP) 


MTPD 


W. NBAS<R4) 



12 Page 9-1 



i Save in WCB 

/Return virtual address 



to user 



177773 

002000 

000000 
004764 ' 
OOOOOOG 
000006 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



2*: 
4*: 



Set up information about uiindoui size 

Get uiindoui size (64-byte units) 

Not legal to have size 

; Convert base virtual addr to 64-byte units 

Get address above top of region <64~byte u) 
Is it greater than 64Kb? 
Br if not too big 
Return error code 

Set size of uiindoui <64-byte units) 
Get virtual address of top of uiindoui 
Get address of last byte in uiindoui 
Set high virtual address for uiindoui 

See if neui uiindoui overlaps uiith any existing windows 



MFPD 


W. NSIZ(R4) i 


MOV 


<SP)+. R3 


BEQ 


2$ ' 


CLC 




ROR 


R2 ■> 


ASH 


#-5. R2 


AOO 


R3> R2 i 


CMP 


R2, #2000 i 


BLOS 


4« i 


MOV 


#ECO, RO i 


JMP 


PLSERR 


MOV 


R3, WC*SIZ<R5) i 


ASH 


#6. R2 i 


DEC 


R2 i 


MOV 


R2, WC*VHI(R5) ; 



5*: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



MFPD 
MOV 
BIS 
BIT 

BNE 

MOV 

TST 

BEQ 

CMP 

BEQ 

CMP 

BLOS 

CMP 

BHIS 



W. NSTS<R4) 
<SP)+, R3 
#WS. CRW, R3 
#WS. OVR, R3 
7* 



; Get user's uiindou; status word 

i Set in successful-creation flag 

; Should we permit windows to overlap? 

iSkip overlap checking if so 



iPoint to 1st window control block 

lis this window in use? 

i Br if not 

j Is this the WCB for the new window? 

i Br if yes 

WC$VHI<R2)' WC$VL0(R5) lis old window below new window? 
6* ; Br if yes 

WC*VL0(R2)> WC*VHI<R5) lis old window above new window? 
6* 'Br if yes 



#WCBBAS> R2 

WC«SIZ(R2) 

6« 

R2, R5 

6$ 



We 

El i 



have found a window overlap. 

minate and possibly unmap the old window. 



OOOOOOG 
OOOOOOG 
OOOOOOG 



004500 ' 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



58*: 
6*: 



7*: 



BIS #WS. ELW, R3 

CLR WC*SIZ<R2) 

TSTB WC*MAP<R2) 

BEQ 58$ 

MOV R5>-<SP) 

MOV R2, R5 

CALL WCBUMP 

MOV (SP)+, R5 

BIS #WS. UNM, R3 

CLR WC*RCB(R2) 

ADD #WC**SZ,R2 

CMP R2, #WCBEND 

BLO 5* 

MOV R3. - < SP ) 



Set flag saying we eliminated a window 

Eliminate the window 

Is window mapped now? 

Br if not 

Save address of WCB for new window 

Get address of WCB of window being unmapped 

Unmap the window 

Get back address of WCB of new window 

Say we had to unmap a window 

Dissociate window from region 

Point to next WCB 

Checked all windows? 

Br if more to check 

Return status flags 



i 
I 
I 



i 
I 

( 



f 
€ 
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€ 

i 



1 
« 
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. CRAW — Create a virtual address uiindow 



1115 002302 106664 OOOOOOG MTPD W. NSTS<R4) i Move back to user's area 

116 i 

117 ; If mapping is requested^ go do that now 

118 i 

119 002306 032703 OOOOOOG BIT #WS. MAP, R3 i Is mapping of windoui wanted? « 

120 002312 001015 BNE MAP2 ; Br if yes 

121 002314 000137 OOOOOOG JMP EMTXIT ; Finished 



I 
( 



TSPLAS - 


— Programmed Lo 


gical Ad 


. MAP 

1 
2 
3 
4 
5 
6 
7 


~ Map virtual uindoui to 


002320 


004737 


004632 ' 


8 

9 

10 


002324 


004737 


004646 ' 


11 


002330 


005765 


OOOOOOG 


12 


002334 


001004 




13 


002336 


012700 


000003 


14 


002342 


000137 


004764 ' 


15 








16 








17 








18 


002346 


106564 


OOOOOOG 


19 


002352 


012602 




20 


002354 


010200 




21 


002356 


004737 


004714' 


22 








23 








24 








25 








26 








27 








28 








29 








30 


002362 


105765 


OOOOOOG 


31 


002366 


001406 




32 


002370 


106564 


OOOOOOG 


33 


002374 


052716 


OOOOOOG 


34 


002400 


106664 


OOOOOOG 


35 








36 








37 








38 


002404 


106564 


OOOOOOG 


39 


002410 


012603 




40 


002412 


001403 




41 


002414 


020365 


OOOOOOG 


42 


002420 


101402 




43 


002422 


016503 


OOOOOOG 


44 


002426 


106564 


OOOOOOG 


45 


002432 


012600 




46 


002434 


010065 


OOOOOOG 


47 


002440 


020062 


OOOOOOG 


48 


002444 


103406 




49 


002446 


004737 


004500 ' 


50 


002452 


012700 


000004 


51 


002456 


000137 


004764 ' 


52 


002462 


005400 




53 


002464 


066200 


OOOOOOG 


54 


002470 


020300 




55 


002472 


101401 




56 


002474 


010003 




57 


002476 


010365 


OOOOOOG 



CALL 


OETWCB 


TST 


WC*SIZ<R5) 


BNE 


MAP2 


MOV 


#EC3, RO 


JMP 


PLSERR 



MFPD 


W. NRID<R4) 


MOV 


(SP)+, R2 


MOV 


R2/R0 


CALL 


CHKRCB 
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physical region 

. SBTTL . MAP — Map virtual windoui to physical region 

The . MAP EMT is used to map a virtual window to a physical region. 

MAP: CALL OETUDB i Get address of window definition block (R4) 

Get window id> check that it is valid and convert it to the address 
of the window control block. 

; Get address of window control block to R5 

>Has this window been allocated? 

i Br if yes 

/Return error code 3 if window not allocated 



Get address of associated Region Control Block 

MAP2: MFPD W. NRID<R4) ; Get address of region control block 

; Get RCB address to RO for CHKRCB 
iMake sure RCB address is ok 

At this pointi the following registers are set up: 
R2 = Address of Region Control Block 

R4 = Address of Window Definition Block in user's area. 
R5 = Address of Window Control Block. 

If this window is already mapped set flag saying it is being unmapped. 

2*: TSTB WC*MAP<R5) i Is window currently mapped? 

i Br if not 

/Get current status flags 
i Set flag saying a window was unmapped 
/Return new flags 

Determine length of window to map 

3*: MFPD W. NLEN<R4) i Get specified mapping length 

/ If zero/ map as much as possible 
/Constrain length to size of window 
/Br if ok 
4$: MOV WC«SIZ(R5)/ R3 i Try to map full size of window 
5$: MFPD W. N0FF(R4) /Get window mapping offset 

/And copy into window control block 

/Is offset greater than region length? 

/Br if not 

/ Unmap the window 

/ If yes then return error code 4 

6$: NEG RO /Calculate how much of region is above 

offset 

Constrain mapped length to region size 

Br if ok 

Get length of region 
7*: MOV R3, WC*LEN<R5) /Save length of window being mapped 



TSTB 


WC*MAP<R5) 


BEQ 


3* 


MFPD 


W. NSTS(R4) 


BIS 


#WS. UNM/ (SP) 


MTPD 


W. NSTS<R4) 



MFPD 


W. NLEN<R4) 


MOV 


(SP)+, R3 


BEQ 


4* 


CMP 


R3, WC*SIZ<R5) 


BLOS 


5* 


MOV 


WC«SIZ(R5)/R3 


MFPD 


W. N0FF(R4) 


MOV 


(SP)+/RO 


MOV 


RO, WC*0FF<R5> 


CMP 


R0/RC*LEN<R2) 


BLO 


6* 


CALL 


WCBUMP 


MOV 


#EC4/ RO 


JMP 


PLSERR 


NEG 


RO 


ADD 


RC*LEN<R2)/R0 


CMP 


R3, RO 


BLOS 


7* 


MOV 


RO, R3 


MOV 


R3, WC«LEN<R5) 



i 

i 

4 
I 
I 



i 
i 



TSPLAS ■ 
. MAP 
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59 
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76 
77 
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— Map virtual uiindoui to physical region 



002502 106564 OOOOOOG 

002506 005726 

002510 001003 

002512 010346 

002514 106664 OOOOOOG 

002520 062703 000177 

002524 072327 177771 

002530 120365 OOOOOOC 

002534 103002 

002536 004737 004500 ' 

002542 110365 0000000 

002546 112765 OOOOOOG OOOOOOG 



002554 004737 004252 ' 



002560 000137 OOOOOOG 



i Get user specified length value 
jWas specified value 0? 
J Br if not — don't change if non-zero 
J Return actual length to user 

8*: ADD #177, R3 ; Determine # PAR'S affected by uiindoui 

i Are uie reducing the # of PAR's mapped? 
i Br if not 

; Unmap all PAR's before setting new mapping 
9*: MOVE R3, WC*NPR<R5) ; Number of PAR'S to change with uiindoui 

#UJC. MAP, UC«MAP<R5) J Say uiindoui mapped normally (not fastmap) 

Noui do the actual mapping 

CALL WCBMAP J Do actual uiindoui mapping 

Finished uiith EMT 

JMP EMTXIT 



MFPD 


W. NLEN<R4) 


TST 


(SP) + 


BNE 


8* 


MOV 


R3, -(SP> 


MTPD 


W. NLEN(R4) 


ADD 


#177, R3 


ASH 


#-7, R3 


CMPB 


R3, WC*NPR<R5) 


BHIS 


9* 


CALL 


WCBUMP 


MOVE 


R3, WC*NPR<R5) 


MOVE 


#WC. MAP,WC*MA 
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12 




13 




14 




15 




16 
17 
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Eliminate a virtual address u)indou> 



002564 004737 004632 ' 
002570 004737 004646 ' 



002574 004737 004500 ' 



002600 005065 OOOOOOG 
002604 005065 0000000 



002610 106564 OOOOOOG 
002614 052716 OOOOOOG 
002620 106664 OOOOOOG 



002624 000137 OOOOOOG 



SBTTL . ELAW 



Eliminate a virtual address uiindoui 



The .ELAW EMT eliminates a virtual address uindoui and frees the 
associated uiindou control block. 



ELAW: 



CALL 
CALL 



GETUDB 
GETWCB 



Unmap the window 

CALL WCBUMP 

Eliminate the window 

CLR WC«SIZ(R5) 
CLR WC»RCB<R5) 

Return WS. ELW status flag 



MFPD 


W. NSTS<R4) 


BIS 


#WS. ELW, < SP ) 


MTPD 


W. NSTS<R4) 


Finished 




JMP 


EMTXIT 



; Get address of window def block to R4 
;Oet address of window control block to R5 



Unmap the window 



; Eliminate window and say WCB is free 
i And not associated with any region 



Get current status flags 
Set flag 
Return flags 



« 
f 



> 1 
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— Unmap a virtual window 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 
r>-7 



002630 004737 004632 ' 
002634 004737 004646 ' 



002640 105765 OOOOOOG 

002644 001004 

002646 012700 000005 

002652 000137 004764' 



002656 004737 004500 ' 



002662 106564 0000000 
002666 052716 OOOOOOG 
002672 106664 OOOOOOG 



002676 000137 OOOOOOG 



. SBTTL . UNMAP — Unmap a virtual window 
The . UNIiAP EMT unmaps but does not eliminate a virtual window. 



UNMAP : 



CALL 
CALL 



OETUDB 
GETWCB 



/Get address of window def block to R4 

i Get address of window control block to R5 



Make sure window is currently mapped 



TSTB 


WC*MAP(R5) 


BNE 


1$ 


MOV 


#EC5, RO 


JMP 


PLSERR 



Unmap the window 
1*: CALL WCBUMP 
Set WS. UNM status flag 



MFPD 


W. NSTS(R4) 


BIS 


#WS. UNM, <SP) 


MTPD 


W. NSTS(R4) 


Finished 




JMP 


EMTXIT 



i Is window currently mapped? 

i Br if yes 

; Error 5 if not mapped 



i Unmap the window 



Get current status flags 
Set flag 
Return flags 



c 

f 



f 
< 
c 
I 
f 

€ 
f 

i 

i 
i 
< 
I 



i 



c 



I 



« 



i 
i 
I 
€ 
€ 
C 
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1 
2 
3 
4 
5 
6 
7 
8 


— Get uiindow ma 


pping status 


002702 


004737 


004632 ' 


9 
10 








11 


002706 


106564 


OOOOOOG 


12 


002712 


012605 




13 


002714 


042705 


177400 


14 


002720 


001500 




15 








16 








17 








10 


002722 


004737 


004646 ' 


19 


002726 


005765 


OOOOOOG 


20 


002732 


001004 




21 


002734 


012700 


000003 


22 
23 
24 


002740 


000137 


004764 ' 


002744 


106564 


OOOOOOG 


25 


002750 


116566 


OOOOOOG 00000 


26 


002756 


106266 


000001 


27 


002762 


106664 


OOOOOOG 


28 








29 


002766 


016546 


OOOOOOG 


30 


002772 


106664 


OOOOOOG 


31 








32 


002776 


016546 


OOOOOOG 


33 


003002 


106664 


OOOOOOG 


34 








35 


003006 


016500 


OOOOOOG 


36 


003012 


010046 




37 


003014 


106664 


OOOOOOG 


38 


003020 


105765 


OOOOOOG 


39 


003024 


001420 




40 








41 








42 








43 








44 


003026 


016546 


OOOOOOG 


45 


003032 


106664 


OOOOOOG 


46 








47 


003036 


016546 


OOOOOOG 


48 


003042 


106664 


OOOOOOG 


49 








50 


003046 


106564 


OOOOOOG 


51 


003052 


052716 


OOOOOOG 


52 


003056 


106664 


OOOOOOG 


53 


003062 


000137 


OOOOOOG 


54 








55 








56 








57 


003066 


005046 
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SBTTL GMCX — Get window mapping status 



The .GMCX EMT is used to get the mapping status of a uiindoui. 

If a uiindouf id of is specified^ the status of the root portion of the 

program is returned. 

GMCX: CALL GETUDB i Get address of uiindow def block to R4 

Get ujindoui id and see if it is zero 

J Get uord with windout id 



MFPD W. NID<R4) 

MOV (SP)+, R5 

BIC #177400, R5 

BEQ GMCXO 



; Clear all but uiindout id 
; Br if window id = 



We are getting the status of a PLAS window 



CALL GETWCB 

TST WC*SIZ(R5) 

BNE 1$ 

MOV #EC3, RO 

JMP PLSERR 



> Get address of window control block to R5 

; Is this window currenty allocated? 

} Br if yes 

j Return error code 3 if not allocated 



1* 



Set APR number 

MFPD W. NID<R4} J Get word with APR value and window id 

MOVB WC«PAR<R5), l(SP)i Set APR index in high-order byte 

ASRB 1(SP) i Convert index into actual APR number 

MTPD W. NID(R4) j Return to window def block 
Set window virtual address 

MOV WC*VL0<R5), -<SP)j Window virtual address base 

MTPD W. NBAS(R4) 
Set window size 

MOV WC*SIZ<R5), -<SP)i Window size (64-byte units) 

MTPD W. NSIZ<R4) 
Set region identifier 

MOV WC*RCB(R5),R0 

MOV RO>-<SP) 

MTPD W. NRID(R4) 

TSTB WC*MAP(R5> 

BEG 2$ 



Get address of region control block 



i Is window currently mapped? 
i Br if window is not mapped 



Window is mapped to a region. 
Return offset. 

MOV WC*0FF(R5), -(SP) 
MTPD W. N0FF<R4) 
Length of mapped portion of window 



MOV 
MTPD 
Status 

MFPD 
BIS 
MTPD 
JMP 



WC*LEN<R5),-<SP) 
W. NLEN(R4) 

W. NSTS<R4) 
#WS. MAP, (SP) 
W. NSTS<R4) 
EMTXIT 



i Get current status flags 
i Say window is mapped 

; Finished 



2* 



Window is not mapped 
CLR - ( SP ) 



« 
I 



I 
I 
f 
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71 
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77 
78 
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84 
85 
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88 
89 
90 
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92 
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Get ujindou mapping status 



003070 
003074 
003076 
003102 
003106 
003112 
003116 



003122 
003124 

003130 
003132 

003136 
003142 
003146 
003152 
003154 
003160 
003162 

003166 
003170 

003174 
003176 

003202 
003206 
003212 
003216 



106664 
005046 
106664 
106564 
042716 
106664 
000137 



005046 
106664 

005046 
106664 

016100 
163700 
072027 
010046 
106664 
010046 
106664 

005046 
106664 

005046 
106664 

106564 
052716 
106664 
000137 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
000003 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



dnesday 


18-Jan-S9 12: 


12 


Page 13-1 


MTPD 


W. N0FF(R4) 




iOffset 


CLR 


-(SP) 






MTPD 


W. NLEN(R4) 




i Mapped length 


MFPD 


W. NSTS<R4) 




.Get status flags 


BIG 


#WS. MAP, (SP) 




;Clear mapped flag 


MTPD 


W. NSTS<R4) 






JMP 


EMTXIT 




} Finished 



Window id = 0. 

Return status of root portion of job. 



GMCXO: CLR -(SP) 

MTPD W. NID(R4) 

i Virtual base address 
CLR -(SP) 
MTPD W. NBAS(R4) 

i Region size and length 

MOV LNBLKS(R1)»R0 



SUB 

ASH 

MOV 

MTPD 

MOV 

MTPD 

Region id 
CLR 
MTPD 

Offset 

CLR 
MTPD 

Status 

MFPD 
BIS 
MTPD 
JMP 



CXTPAG, RO 
#3, RO 
RO, -(SP) 
W. NSIZ(R4) 
RO, -(SP) 
W. NLEN(R4) 

-(SP) 

W. NRID(R4) 

-(SP) 

W. N0FF(R4) 

W. NSTS(R4) 
#WS. MAP, (SP) 
W. NSTS(R4) 
EMTXIT 



i Say APR = 
;Say base address 







iGet # 512-byte blocks assigned to job root 
{Subtract # blocks used by context block 
i Convert to # 64-byte blocks 

; Region size 

;Region mapped length 



; Finished 
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— Find local RCB for private named region 



i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



003222 012705 OOOOOOG 



003226 016500 OOOOOOG 

003232 032700 OOOOOOG 

003236 001420 

003240 032700 OOOOOOG 

003244 001415 

003246 032700 OOOOOOG 

003252 001412 



003254 106564 OOOOOOG 

003260 022665 OOOOOOG 

003264 001005 

003266 106564 000002G 

003272 022665 000002G 

003276 001407 



003300 062705 OOOOOOG 
003304 020527 OOOOOOG 
003310 103746 



003312 000261 
003314 000401 



003316 000241 



003320 000207 



. SBTTL FLRCB 



Find local RCB for private named region 



Try to locate a local RCB for a private region whose name matches 
that specified in the user's RDB. 

Inputs: 
R4 = Pointer to user's RDB. 

Outputs: 
C~flag cleared ==> Found RCB. 
C-flag set ==> Could not find RCB. 
R5 = Pointer to RCB that uias found. 

FLRCB: MOV #RCBBASi R5 ; Point to first local RCB 

See if this RCB is for a named< private region 



1*: 



MOV 
BIT 
BEQ 
BIT 

BIT 
BEQ 



RC«FLG<R5),R0 

#RC*USE, RO 

2$ 

#RC*GBL, RO 

2« 

#RC*PVT, RO 

2« 



Get RCB flags 

Is this RCB active? 

Br if not 

Is this for a named region? 

Br if not 

Is this for a private region? 

Br if not 



Compare specified name with name in RCB 



MFPD 

CMP 

BNE 

MFPD 

CMP 

BEQ 

Try next RCB 

2*: ADD 
CMP 
BLO 



R. NAME<R4) ; Get 1st 3 chars of name 

<SP)+j RC*NAM(R5)» Does first part of name match? 

2* ;Br if not 

R. NAME+2<R4) i Get 2nd 3 chars of name 

<SP)+> RC*NAM+2<R5) i Do names match? 



3* 



#RC**SZ, R5 
R5, #RCBEND 
1* 



Br if yes 



Found the RCB 



There is no matching RCB 



SEC 

BR 



9* 



; We found a matching RCB 

* 

3*: CLC 

i 

i Finished 

i 

9*: RETURN 



Point to next RCB 
Checked all RCB's? 
Br if not 



Signal failure on return 



Signal success on return 
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I 
f 
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< 
c 
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f 
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10 
11 
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21 
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29 
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31 
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33 
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43 
44 
45 
46 
47 
48 
49 
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— Find local RGB for shared region 



003322 012703 0000006 



003326 016300 OOOOOOQ 

003332 032700 OOOOOOG 

003336 001415 

003340 032700 OOOOOOG 

003344 001412 



003346 106564 OOOOOOG 

003352 022663 OOOOOOG 

003356 001005 

003360 106564 000002G 

003364 022663 000002G 

003370 001407 



003372 062703 OOOOOOG 
003376 020327 OOOOOOG 
003402 103751 



003404 000261 
003406 000401 



003410 000241 



003412 000207 



. SBTTL FLCRCB — Find local RCB for shared region 

Try to locate a local RCB for a shared region whose name matches 
that specified in the user's RDB. 

Inputs: 
R4 = Pointer to user's RDB. 

Outputs: 
C-flag cleared ==> Found RCB. 
C-flag set ==> Could not find RCB. 
R3 = Pointer to RCB that was found. 

FLCRCB; MOV #RCBBAS, R3 > Point to first local RCB 

See if this RCB is for a shared region 

1*: 



MOV RC*FLG(R3),R0 

BIT #RC*USE, RO 

BEQ 2* 

BIT #RC*LCe. RO 

BEQ 2* 



i Get RCB flags 

J Is this RCB active? 

i Br if not 

} Is this for a shared region? 

i Br if not 



Compare specified name with name in RCB 



2«: 



MFPD 

CMP 

BNE 

MFPD 

CMP 

BEQ 

Try next RCB 

ADD 
CMP 
BLO 



R. NAME<R4) ; Get 1st 3 chars of name 

<SP)+, RC*NAM(R3); Does first part of name match? 

2* > Br if not 

R. NAME+2(R4) ; Get 2nd 3 chars of name 

(SP)+, RC*NAM+2<R3) i Do names match? 



3* 



#RC**SZ, R3 
R3, #RCBEND 
1$ 



There is no matching RCB 



SEC 
BR 



9* 



We found a matching RCB 
3*: CLC 

Finished 
9*: RETURN 



i Br if yes — Found the RCB 



J Point to next RCB 
{Checked all RCB's? 
i Br if not 



; Signal failure on return 



; Signal success on return 



I 
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— Find global RCB for shared named region 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



003414 013705 OOOOOOG 



. SBTTL FGRCB — Find global RCB for shared named region 

Try to locate a global RCB for a region whose name matches 
that specified in the user's RDB. 

Inputs: 
R4 = Pointer to user's RDB. 

Outputs: 

C-flag cleared ==> Found RCB. 

C-flag set ==> Could not find RCB. 

R5 = Pointer to RCB that was found. 
i 
FGRCB: MOV SHRRCB, R5 i Point to first shared RCB 

See if this RCB is for an active region 



003420 032765 OOOOOOG OOOOOOG 1*: 
003426 001412 



BIT #RC«USE. RC«FLG(R5) ils this RCB active? 
BEQ 2* i Br if not 



Compare specified name with name in RCB 



003430 106564 OOOOOOG 

003434 022665 OOOOOOG 

003440 001005 

003442 106564 000002G 

003446 022665 000002G 

003452 001407 



003454 062705 OOOOOOG 
003460 020537 OOOOOOG 
003464 103755 



003466 000261 
003470 000401 



003472 000241 



003474 000207 



MFPD 

CMP 

BNE 

MFPD 

CMP 

BEQ 

Try next RCB 

2*: ADD 
CMP 
BLO 



R. NAME(R4) ; Get 1st 3 chars of name 

(SP>+, RC*NAM<R5)j Does first part of name match? 

2* ;Br if not 

R. NAME+2(R4) i Get 2nd 3 chars of name 

(SP)+, RC*NAM+2<R5) i Do names match? 



3* 



#RC**SZ. R5 
R5, SHRRCN 
1* 



i Br if yes 



Found the RCB 



There is no matching RCB 



SEC 
BR 



9* 



We found a matching RCB 
3*: CLC 

Finished 
9*: RETURN 



;Point to next RCB 
iChecked all RCB's? 
i Br if not 



i Signal failure on return 



i Signal success on return 



I 
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TSPLAS — Programmed Logical Ad 
GLRCB — Get a free local RGB 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 003476 

13 003502 

14 003510 

15 003512 

16 003516 

17 003522 
18 

19 
20 

21 003524 

22 003530 
23 

24 

25 

26 

27 003534 

28 

29 

30 

31 003540 
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. SBTTL GLRCB — Get a free local RCB 

Get a free local RCB and initialize it. 

Inputs: 
R4 = Pointer to user's RCB. 
R2 = Status flags from user's RCB 

Outputs: 
R5 = Pointer to free RCB. 



012705 
032765 
001411 
062705 
020527 
103767 



012700 
000137 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



GLRCB: 
OOOOOOG i*; 



000006 
004764 ' 



004737 003606 ' 



000207 



MOV 
BIT 
BEQ 
ADD 
CMP 
BLO 



#RCBBAS» R5 j Point to 1st local RCB 
#RC*USE, RC*FLG<R5) i Is this RCB free? 



2* 

#RC**SZ, R5 
R5> «RCBEND 
1$ 



Error — No free RCB's 



MOV 
JMP 



#EC6, RO 
PLSERR 



We found a free RCB. 
Initialize it 

2*: CALL INIRCB 

Finished 

RETURN 



> Br if yes 

; Point to next RCB 

jChecked all? 

i Loop if not 



i Return error code 6 



Initialize the RCB 



< 
I 
I 
i 
f 

c 



i 
t 

t 



TSPLAS - 
QQRCB - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



— Programmed Logical Ad 

— Get a free global RGB 
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. SBTTL GGRCB — Get a free global RCB 

Get a free global RCB and initialize it. 

Inputs: 
R4 = Pointer to user's RCB. 
R2 = Status flags from user's RCB 

Outputs: 
R5 = Pointer to free RCB. 



003542 
003546 
003554 
003556 
003562 
003566 



003570 
003574 



013705 
032765 
0014U 
062705 
020537 
103767 



012700 
000137 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



GGRCB: MOV 
OOOOOOG 1$: BIT 

BEQ 
ADD 
CMP 
BLO 



SHRRCBi R5 ; Point to 1st shared RCB 
#RC*USE>RC*FLG<R5) ; Is this RCB free? 



Error 



000006 
004764 



MOV 
JMP 



2* 

#RC**SZ, R5 
R5, SHRRCN 
1$ 

No free RGB's 

#EC6, RO 
PLSERR 



003600 004737 003606 



003604 000207 



We found a free RCB. 
Initialize it 

2*: CALL INIRCB 

Finished 

RETURN 



j Br if yes 

J Point to next RCB 

iChecked all? 

i Loop if not 



; Return error code 6 



.: Initialize the RCB 



I 
i 



i 

i 

f 

i 
i 
€ 
4 
I 
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t 
I 



010346 



010503 
012700 
005023 
077002 



OOOOOOC 



113765 OOOOOOG OOOOOOG 



TSPLAS — Programmed Logical Ad 
INIRCB — Initialize a new RGB 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 003606 
12 
13 
14 

15 003610 

16 003612 

17 003616 

18 003620 
19 

20 

21 

22 003622 

23 

24 

25 

26 003630 

27 003634 

28 003636 

29 003642 

30 003646 

31 003650 

32 003652 

33 003656 
34 

35 
36 

37 003662 

38 003666 

39 003670 

40 003676 

41 003702 

42 003706 

43 003712 
44 

45 
46 

47 003716 

48 003720 
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. SBTTL INIRCB — Initialize a new RGB 



106564 
012600 
010065 
062700 
000241 
006000 
072027 
010065 



032702 
001413 
052765 
106564 
012665 
106564 
012665 



012603 
000207 



OOOOOOG 

OOOOOOG 
000007 



177776 
OOOOOOG 



OOOOOOC 

OOOOOOG 
OOOOOOG 
OOOOOOG 
000002G 
000002G 



OOOOOOG 



INIRCB zeroes a new RCB and stores the name of the region into it 
if it is a named region. 



Inputs: 
R5 = Pointer to new RCB to be initialized. 
R4 = Pointer to user's RDB. 
R2 = Status flags from RDB. 



INIRCB: MOV 



Zero the RCB 

MOV 
MOV 
CLR 
SOB 



1*: 



R3, -<SP> 



R5, R3 

#RC«*SZ/2, RO 
(R3> + 
RO, 1* 



; Point to the RCB 
; Get # words to zero 
; Zero the RCB 



Initialize the RCB 

MOVB C0RUSR,RC*0WN<R5) i Save # of job creating region 

Set up information about the size of the region. 

i Get # 64-byte blocks needed for region 

; Save region size in RCB 

; Bound up to # 512-byte pages 

; Clear carry for rotate 

/Convert # 64-bytB blocks to # 512-byte blocks 

i Save # pages needed for region 

Store the name into the RCB if it is a named region. 



MFPD 


R. GSIZ<R4) 


MOV 


<SP)+, RO 


MOV 


RO, RC»LEN<R5) 


ADD 


#7, RO 


CLC 




ROR 


RO 


ASH 


#-2, RO 


MOV 


RO, RC*PAG<R5) 



9*: 



BIT 

BEQ 

BIS 

MFPD 

MOV 

MFPD 

MOV 

Finished 

MOV 
RETURN 



#<RS. GBLIRS. CGR>, R2 ;Is this a named region? 

9* i Br if not 

#RC*GBL, RC*FLG<R5) J Remember this is a named region 

R. NAME<R4) ; Get 1st 3 chars of name 

(SP)+,RC*NAM<R5)i Store into RCB 

R. NAME+2<R4) i Get 2nd 3 chars of name 

<SP)+, RC*NAM+2<R5) ; Store into RCB 



<SP)+, R3 
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— Check valid attachment to named region 



. SBTTL CHKATT — Check valid attachment to named region 

CHKATT is called when u»e are about to attach to an existing named 
region to make sure the size specified in the RDB is compatible with 
the size of the region. 

Inputs: 
R4 = Pointer to user's RDB. 
R5 = Pointer to RCB for region. 



003722 



CHKATT: 



See if uie are trying to attach to a region that is reserved for 
exclusive access by another job. 



003722 032765 OOOOOOC OOOOOOG 

003730 001010 

003732 032765 OOOOOOG OOOOOOG 

003740 001404 

003742 O 1 2700 0000 1 5 

003746 000137 004764' 



003752 106564 OOOOOOG 

003756 012600 

003760 001412 

003762 020065 OOOOOOG 

003766 101407 



003770 016537 OOOOOOG OOOOOOG 
003776 012700 000007 
004002 000137 004764' 



BIT 
BNE 
BIT 
BEQ 
MOV 
JMP 



#<RC*LC0!RC*PVT>, RC*FLG(R5) {Private or local copy of global? 

1* ; Br if yes 

#RC*EXC* RC*FLG<R5) {Exclusive access to reaion reserved? 



1$ 

#EC15>R0 

PLSERR 



; Br if not 

{Return error code 15 



Get size of region from RDB 



1*: 



MFPD 


R. GSIZ(R4) 


MOV 


<SP)+, RO 


BEQ 


9* 


CMP 


RO, RC*LEN<R5) 


BLOS 


9* 



Error 



MOV 
MOV 
JMP 



{Get requested size of region 

■ Size of zero is ok 

{Compare with existing length 

{Br if ok 



Requested size is too big 

RC*LEN<R5), URO {Return actual region size to user in RO 

#EC7» RO {Return error code 7 

PLSERR 



004006 000207 



9*: 



Region size is ok 
RETURN 
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004010 
004012 



004014 
004020 
004024 
004026 
004032 
004036 
004042 
004050 
004054 
004060 



004062 
004066 
004072 



004074 
004100 
004102 
004106 
004110 
004114 
004120 
004122 
004130 
004136 



004140 
004146 
004152 
004156 
004160 
004166 
004172 
004176 
004200 
004204 
004206 
004214 
004220 



010246 
010546 



012705 
020265 
001011 
004737 
005065 
005065 
052762 
062705 
020527 
103757 



016200 
032700 
001022 



032700 
001457 
032700 
001054 
105062 
032700 
001451 
042762 
052762 
000442 



042762 
016202 
032700 
001403 
052762 
016200 
105362 
001003 
032700 
001015 
042762 
032700 
001411 



. SBTTL RELRGN — Release attachment to a region 

RELRGN is called to release an attachment by the current job to a region. 

Inputs: 
R2 = Address of Region Control Block for region being released. 



RELRGN: MOV 
MOV 



R2, -<SP) 
R5, -<SP) 



Unmap any mindouis that are mapped to this region 



OOOOOOG 
OOOOOOG 



5«: 



004500 ' 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 6«: 

OOOOOOG 



MOV 

CMP 

BNE 

CALL 

CLR 

CLR 

BIS 

ADD 

CMP 

BLO 



#WCBBAS. R5 

R2, WC*RCB<R5) 

6* 

WCBUMP 

WC$SIZ<R5) 

WC*RCB<R5) 



» Point to first windoui control block 

; Is this utindouj associated with this region? 

; Br if not 

; Unmap the uiindou 

; El iminate it 

; And dissociate it from region 



#RC*UNM* RC*FLG<R2) ; Remember a uindoiu was eliminated 
#WC**SZ,R5 ; Point to next WCB 
R5, #WCBEND ; Checked all windows? 
5* J Br if not 



See if this is a private or shared region. 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



MOV RC*FLG<R2>>R0 

BIT #RC*LCG. RO 

BNE 3« 

We are releasing a private region 

BIT #RC*GBL, RO 

BEQ i« 

BIT #RC*AGE, RO 

BNE 1* 

CLRB RC*CNT(R2) 

BIT #RC*AEP, RO 

BEQ 9* 

BIC #RC*AEP* RC*FLG<R2) 

BIS #RC*AGE. RC*FLG ( R2 ) 

BR 9* 

We are releasing a shared region. 



OOOOOOG OOOOOOG 3*: 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 4*: 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 2*: 
OOOOOOG 



BIC 


#RC*USE. RC«FLG(R2) 


MOV 


RC*BLK(R2),R2 


BIT 


#RC$AGE> RO 


BEQ 


4* 


BIS 


#RC*AGE, RC*FLG<R2) 


MOV 


RC*FL0<R2),R0 


DECB 


RC«CNT<R2) 


BNE 


2$ 


BIT 


#RC*AGE, RO 


BNE 


1$ 


BIC 


#RC*EXC/ RC*FLG<R2) 


BIT 


#RC*AEP, RO 


BEQ 


9* 



.Get RCB status flags 

i Private or shared region 

; Br if shared region 



Is this a named region? 

Br if not — Always eliminate 

Should we eliminate the region? 

Br if yes 

Say attachment count = 

Is automatic elimination pending? 

Br if not 

Clear pending flag 

Set automatic-elimination flag 



Say local RCB is free 

Get address of global RCB 

Was AGE specified in local RCB? 

Br if not 

Transfer AGE option to global RCB 

Get status flags from global RCB 

Dec attachment count in global RCB 

Br if someone else still attached 

Is automatic elimination wanted? 

Br if yes 

Clear exclusive-access flag 

Is automatic elimination pending? 

Br if not 



I 

i 
f 



I 
i 
c 
« 
t 

< 

I 
I 
« 

t 



I 



( 
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' RELRGN — Release attachment to a region 

58 004222 052762 OOOOOOG OOOOOOG BIS #RC*AeE, RC*FLG<R2) i Set automatic elimination flag 

' 59 004230 042762 OOOOOOG OOOOOOG BIG #RC*AEP, RC*FLG(R2) i Clear automatic elimination pending 

60 004236 000402 BR 9* 

61 i 

' 62 i Eliminate this region 

63 > 

64 004240 004737 006456' 1*: CALL FRERCB ; Release the region 
' 65 

66 

* 68 004244 012605 9*: 

69 004246 012602 

70 004250 000207 

I 



I 



f 



c 
f 



I 



I 

I 

i 

« 

i 

I < 

( 
( 



Finished 



MOV 


<SP)+,R5 


MOV 


<SP)+, R2 


RETURN 





I 



€ 

< 
I 
( 
f 



I, 



c 

i 
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22 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 

11 004252 

12 004254 

13 004256 

14 004260 

15 004262 
16 

17 
18 

19 004264 

20 004270 
004274 
004300 

23 004304 

24 

25 

26 

27 004310 

28 004312 

29 004320 

30 004322 

31 004326 

32 004330 
33 

34 
35 

36 004332 

37 004336 

38 004340 

39 004342 

40 004344 

41 004346 

42 004350 

43 004352 

44 004354 

45 004356 

46 004362 

47 004366 

48 004370 

49 004372 

50 004376 

51 004402 

52 004406 

53 004412 

54 004416 

55 004422 

56 004424 

57 004430 



010146 
010246 
010346 
010446 
010546 



016502 
116503 
016504 
016201 
066501 



005005 
032762 
001404 
105737 
001401 
005205 



012702 
010400 
001451 
020002 
101401 
010200 
160004 
005300 
000300 
052700 
042700 
005705 
001015 
010063 
010063 
010063 
010163 
010163 
010163 
000414 
010063 
010063 
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SBTTL WCBMAP — Do actual uiindow mapping 



WCBMAP is called to perform the actual mapping of a PLAS uiindoui to 
a physical memory region. The information in the uiindout control block 
is used to set up the mapping. The user PAR and PDR registers are 
loaded and the RPAR and RPDR cells are set up to reflect the mapping. 

Inputs: 
R5 = Address of window control block. 



WCBMAP: 



MOV 
MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -<SP) 



Get information about region being mapped 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV WC*RCB(R5),R2 

MOVB WC*PAR<R5>,R3 

MOV WC*LEN<R5),R4 

MOV RC*BAS(R2),R1 

ADD WC*0FF<R5),R1 



Get address of region control block 
Get PAR index number (2«base PAR #) 
Get # 64-byte blocks to be mapped 
Get base 64-byte block # of region 
Add bjindouj offset within region 



OOOOOOG OOOOOOG 
OOOOOOG 



Determine if this window should be mapped thru I- or D-space 

CLR R5 .! Assume I-space mapping 

BIT #RC*DSP. RC*FLG<R2) ; Should this region be in D-space? 

BEQ 4* J Br if not 

TSTB IDSFLG > Does the machine support separate space? 

BEQ 4* ; Br if not 

INC R5 



000200 



4*: 
1*: 



3*: 



000006 
100261 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



5«: 



Begin loop to set up each PAR 

MOV #128. , R2 

MOV R4, RO 

BEQ 2« 

CMP RO, R2 

BLOS 3* 

MOV R2, RO 

SUB RO, R4 

DEC RO 

SWAB RO 

BIS «6/R0 

BIC #100261, RO 

TST R5 

BNE 5* 

MOV RO, UPDR0<R3) 

MOV RO, RPDR<R3) 

MOV RO, CUPDR0<R3) 

MOV R1,UPAR0<R3) 

MOV R1,RPAR<R3) 

MOV R1,CUPAR0(R3) 

BR 6$ 

MOV RO, UDDR0(R3) 

MOV RO, RDDR(R3) 



Carry 128 in R2 
Get # 64-byte bio 
Br if finished ma 
We can only map 1 
Br if we can map 
Map 128 blocks th 
Get # 64-byte bio 
Get # blocks -1 
Put # blocks in h 
Allow read and wr 
Make sure unused 
Use I- or D-space 
Br if D-space 
Set actual PDR re 
Set shadow 
Set shadow 
Set actual 
Set shadow 
Set shadow 
Step up to 



cks left to map 

pping 

28 blocks per PAR 

all that is left 

rough this PAR 

cks left after this PAR 

igh order byte 
ite access to page 
PDR bits are zero 
registers? 



Set actual 
Set shadow 



cell 
cell i 
PAR re 
cell 
cell i 
next s 
D-spac 
cell 



gi ster 

n context block 
gister 

n context block 

et 

e PDR register 



< 
f 



i 
I 
c 
I 
f 

I 
I 

I 

4 
I 
I 

( 

t 
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58 004434 

59 004440 

60 004444 

61 004450 

62 004454 

63 004456 

64 004462 
65 

66 
67 

68 004464 

69 004466 

70 004470 

71 004472 

72 004474 

73 004476 



010063 
010163 
010163 
010163 
060201 
062703 
000725 



012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000002 



6*: 



2*: 



MOV 


RO, CUDDR0<R3) 




MOV 


R1,UDAR0<R3) 




MOV 


R1.RDAR<R3) 




MOV 


R1,CUDAR0(R3) 




ADD 


R2, Rl 




ADD 


#2, R3 




BR 


1« 




Finished 






MOV 


(SP)+, R5 




MOV 


(SP)+, R4 




MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP>+. Rl 




RETURN 







Set shadow cell in context block 

Set actual D-space PAR register 

Set shadow cell 

Set shadow cell in context block 

Advance physical block number 

Advance PAR index 

Go load more PAR'S 



f 
r 
I 
c 
I 
t 

I 
< 

f 

I 
( 
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WCBUMP - 

1 

2 
3 
4 
5 
6 
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8 004500 

9 004502 
10 004504 
11 

12 004506 

13 004512 

14 004514 

15 004520 

16 004524 

17 004532 

18 004534 

19 004540 

20 004542 

21 004546 

22 004552 

23 004554 

24 004560 

25 004562 

26 004564 

27 004566 

28 004570 

29 004574 

30 004600 

31 004604 
32 

33 
34 
35 

36 004606 

37 004612 
38 

39 

40 

41 004616 

42 

43 

44 

45 004622 

46 004624 

47 004626 

48 004630 



010146 
010246 
010346 

105765 
001443 
016503 
116501 
032763 
001003 
062701 
000402 
062701 
116502 
006302 
116500 
001416 
005011 
005702 
100404 
005062 
062702 
062701 
077012 



113701 
004737 



. SBTTL WCBUMP — Do actual unmapping of a PLAS ujindou 

WCBUMP is called to do the actual unmapping operation for a PLAS uindoui. 

Inputs: 
R5 = Address of window control block 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 

000002 

000002 



OOOOOOG 
OOOOOOG 



105065 OOOOOOG 



012603 
012602 
012601 
000207 



WCBUMP: 


MOV 


Rl, -<SP) 






MOV 


R2, -<SP) 






MOV 


R3, -<SP) 






TSTB 


WC*MAP<R5) 






BEQ 


9* 






MOV 


WC*RCB(R5), 


R3 




MOVE 


WC*PAR<R5), 


Rl 




BIT 


#RC«DSP, RC^ 


KFL 




BNE 


4* 






ADD 


#RPDR,R1 






BR 


5* 




4*: 


ADD 


#RDDR. Rl 




5*: 


MOVE 


WC*TRP(R5), 


R2 




ASL 


R2 






MOVE 


WC*NPR(R5), 


RO 




BEQ 


2« 




1*: 


CLR 


(Rl) 






TST 


R2 






EMI 


3* 






CLR 


SR*PDR<R2) 






ADD 


#2, R2 




3*: 


ADD 


#2, Rl 






SOB 


RO, 1« 





; Is the window mapped now? 

i Br if not 

i Get pointer to rcb 

j Get first APR index number for the window 
#RC*DSP, RC*FLG<R3) ; Was this mapped thru I- or D-space 

» Br if thru D-space 
Index into I-space register set 
Step over D~space offset 
Index into D-space register set 
Get trap region # associated with window 
Convert to index 

Get number of APR's affected by window 
Br if no APR's to unmap 
Say no special mapping for this APR 
Any trap region to clean up? 
Br if not 

Indicate that fast trap region not in use 
Advance trap region index 
Advance APR index 
Loop if more APR's to free 

We have reset the mapping information. 

Call SETMAP to do the actual mapping for the job. 



MOVE 
CALL 



CORUSR.Rl 
SETMAP 



j Get current job index number 

i Reload map registers for the job 



Clear WC*MAP to indicate window is unmapped 



2*: CLRE 
Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



WC*MAP<R5) 



(SP)+, R3 
(SP)+, R2 
<SP)+,R1 



Say window is now unmapped 



I 

I 
I 

i 

i 

< 

f 

t 

f 

i 
« 
I 
I 

c 

( 



I 

I 



TSPLAS 
GETUDB 
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Get address of user definition block 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



004632 013700 000002G 

004636 010004 

004640 004737 OOOOOOG 

004644 000207 



004646 
004652 
004654 
004660 
004662 
004666 



004670 
004674 
004700 



106564 
012600 
042700 
001411 
020027 
101006 



012705 
062705 
077003 



OOOOOOG 

177400 

OOOOOOG 



OOOOOOC 
OOOOOOG 



004702 000207 



. SBTTL GETUDB — Get address of user definition block 

GETUDB is called to get the address of a Region Definition Block or a 
Windou Definition Block from a user's EMT argument block. 
The address is checked to make sure it is valid. 

Outputs: 
R4 = Address of user's control block. 



GETUDB : MOV 
MOV 
CALL 
RETURN 



EMTBLK+2, RO 
RO, R4 
VALADW 



i Get address of control block 

/Return in R4 

/Make sure address is valid 



GETWCB is called to get the address of a Window Control Block 
based on the value of the window id specified in a user's Window 
Definition Block. 
If the window id is not valid an emt error code of 3 is returned. 

Inputs: 
R4 = Address of user's window definition block. 

Outputs: 
R5 = Address of window control block. 



GETWCB: MFPD 
MOV 
BIC 
BEQ 
CMP 
BHI 



W. NID<R4) 

<SP)+, RO 

#177400, RO 

1* 

ROi #NUMWCB 

1* 



i Get window id 

j Clear high-order byte 

J Error if window = 

iMake sure id is not too large 

i Br if too big 



Convert window id to address of window control block 

2*: MOV #WCBBAS-WC«*SZ/ R5 ; Point to WCB area 
4*: ADD #WC*«SZ/R5 i Point to correct WCB 
SOB RO/ 4* i Based on ID number 

Finished 

RETURN 

Error — Invalid window id 



I 
f 



004704 
004710 



012700 
000137 



000003 
004764 



1*: 



MOV 
JMP 



#EC3/ RO 
PLSERR 



/Return emt error code 3 



i 
I 
( 
I 
I 
I 
« 

f 
< 
I 
t 

i 



i 

i 
i 



TSPLAS - 
CHKRCB - 

1 

2 

3 

4 

5 

h 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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— Check address of Region Control Block 



004714 032700 000001 

004720 001015 

004722 020027 0000000 

004726 103403 

004730 020027 OOOOOOG 

004734 103406 

004736 020037 OOOOOOG 

004742 103404 

004744 020037 OOOOOOG 

004750 101001 



004752 000207 



004754 012700 000002 
004760 000137 004764' 



. SBTTL CHKRCB — Check address of Region Control Block 

CHKRCB is called to verify that the address of a region control 
block is valid. If the address is not valid/ an emt error code 
number 2 is returned. 

Inputs: 
RO = Region control block address to be checked 

iMake sure address is even 

; Br if odd 

iMake sure it is within proper region 



See if this is a shared RCB 



CHKRCB: 


BIT 


#1.R0 




BNE 


1* 




CMP 


RO, #RCBBAS 




BLD 


2$ 




CMP 


RO, #RCBEND 




BLO 


9* 


2*: 


CMP 


RO, SHRRCB 




BLD 


1* 




CMP 


RO, SHRRCN 


• 


BHI 


1* 


t Address is o 


k 


j 
9*: 


RETURN 




i Error — Invalid region 


1*: 


MOV 


#EC2, RO 




JMP 


PLSERR 



Return EMT error code 2 



i 
I 

( 

i 

i 
I 
i 
i 
i 
I 
< 
C 
( 
( 
f 

i 
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PLSERR — Report error on PLAS EMT 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 004764 000137 OOOOOOG 



. SBTTL PLSERR — Report error on PLAS EMT 

This routine is jumped to when any error occurs while processing 
a PLAS EMT. It returns the error code to the calling program 
with the C-flag set on return from the EMT. 

Inputs: 
RO = EMT error code to be returned 



PLSERR: JMP 



SETERR 



i Enter EMT error reporting routine 



010246 



016137 OOOOOOG OOOOOOG 



TSPLAS — Programmed Logical Ad 
SEGOUT — Outswap job regions 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 004770 
14 
15 
16 

17 004772 
18 
19 
20 

21 005000 

22 005004 

23 005012 

24 005014 

25 005022 

26 005024 

27 005032 

28 005034 

29 005040 

30 005044 
31 
32 
33 

34 005046 

35 005050 
36 
37 
38 
39 

40 005052 

41 005056 

42 005064 

43 005072 
44 

45 
46 

47 005100 004737 005112' 

48 005104 000241 
49 

50 
51 

52 005106 012602 

53 005110 000207 
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SBTTL SEGOUT — Outswap job regions. 



012702 
032762 
001410 
032762 
001004 
032762 
001007 
062702 
020227 
103757 



000261 
000416 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



SEGOUT is called to write all PLAS regions associated with a 
particular job to the region swap file. 

Inputs: 
Rl = Job index number 

Outputs: 
C-fiag set ==> No regions need to be outswapped for this job 
C-flag cleared ==> Beginning to swap regions. 

i 

SEGOUT: MOV R2, -<SP) 

Map PAR6 to job context block 

MOV LCXPAR(Rl)i @#KPAR6 i Map kernel par6 to job context block 
Determine if any regions need to be swapped for this job 

MOV #RCBBASj R2 i Point to first region descriptor 

1*: BIT #RC*USE, RC*FLG<R2) ;Is this RGB active? 

BEQ 3* ; Br if not 

BIT #RC*LCG, RC*FLG<R2)i Is this a shared regionT' 

BNE 3* i Br if yes 

BIT #RC*INM> RC*FLG<R2); Is this region in memory now? 

BNE 2* iBr if yes 

3*: ADD #RC**SZ. R2 ; Point to next region descriptor block 

CMP R2> #RCBEND i Checked all region descriptors? 

BLO 1* iBr if not 

There are no regions that need to be outswapped 



SEC 
BR 



Signal no regions to outswap 



9* 



010237 000002' 

016237 OOOOOOG 

016237 OOOOOOG 

016237 OOOOOOG 



000004 ' 
000006 ' 
000010' 



We found a region that needs to be outswapped. 
Set up information to describe the transfer. 

2*: MOV R2> SCBRCB ; Save address of region control block 

MOV RC*BAS(R2>>SCBBASi Base 64-byte block # of region 

MOV RC*LEN(R2),SCBLEN; # 64-byte blocks to transfer 

MOV RC*BLK<R2>,SCBBLK; Block # of start in swap file 



9*: 



Initiate the transfer 

CALL OSSGO 
CLC 

Finished 

MOV (SP)+, R2 
RETURN 



i Start the I/O transfer 

i Signal that swapping is being done 



f 
f 

i 
i 
i 
i 
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f 
I 
c 

€ 
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t 

c 
I 
f 

I 



TSPLAS - 


— Programmed Lo 


gical Ad 


MACRO VOE 


SEOOUT - 
1 


~ Outswap job regions 


> 


2 
3 
4 








f 

i 

i 


5 








f 


6 








i 


7 








i 


8 








i 


9 








> 


10 


005112 


010146 




c 


11 


005114 


010246 






12 








i 


13 








/ 


14 








$ 


15 


005116 


012701 


OOOOOOG 




16 


005122 


004737 


OOOOOOG 




17 










18 










19 










20 


005126 


063761 


000010' 


OOOOOOG 


21 


005134 


013761 


000004 ' 


OOOOOOG 


22 


005142 


012761 


005234 ' 


OOOOOOG 


23 


005150 


013700 


000006 ' 




24 


005154 


020027 


001770 




25 


005160 


101402 






26 


005162 


012700 


001770 




27 


005166 


160037 


000006 ' 


1 


28 


005172 


060037 


000004 ' 




29 


005176 


010002 






30 


005200 


072227 


177775 




31 


005204 


060237 


000010' 




32 


005210 


072027 


000005 




33 


005214 


005400 






34 


005216 


010061 


OOOOOOG 




35 








/ 


36 








} 


37 








t 


38 


005222 


004737 


OOOOOOG 




39 








/ 


40 








i 


41 








i 


42 


005226 


012602 






43 


005230 


012601 






44 


005232 


000207 
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DSSGO is called to initiate an I/O operation to write a PLAS region 
<or a portion of a region) to the region stuap file. 

Inputs: 
SCBBAS - Base 64-byte block # of start of region memory region 
SCBLEN = Number of 64-byte blocks to transfer 
SCBBLK = Block number in swap file where region is to be written 



OSSGO: 



MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Get a system I/O queue element 



MOV #SEGCHN, Rl 
CALL GETSYQ 



; Point to system swap file I/O channel 
i Get I/O queue element (address in Rl) 



Set up information in I/O queue element for the transfer 



1*: 



ADD 


SCBBLK>Q. BLKN(R1 


MOV 


SCBBAS, Q. PAR<R1) 


MOV 


#OSSCMP,Q. COMP<R 


MOV 


SCBLEN, RO 


CMP 


RO, #1016. 


BLOS 


1* 


MOV 


#1016. iRO 


SUB 


RO, SCBLEN 


ADD 


RO, SCBBAS 


MOV 


RO, R2 


ASH 


#-3, R2 


ADD 


R2, SCBBLK 


ASH 


#5, RO 


NEG 


RO 


MOV 


RO, Q. WCNKRl) 



Queue the I/O request 

CALL SYQIO 

Return 

MOV (SP)+, R2 
MOV (SP)+, Rl 
RETURN 



)iBlock number within file 

i 64-byte memory address 

l)i Address of completion routine 

; Get # 64-byte blocks to transfer 

; Compare to max we can transfer at one time 

; Br if we can transfer all this time 

i Truncate amt to transfer 

; Get # blocks left to transfer 

i Advance address for next transfer 

i Convert # 64-byte blocks to # 512-byte blocks 

;Advance file block number 

i Convert to # words to transfer 

i Negative ==> Write operation 

iSet word count for transfer 



Initiate the I/O operation 
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DSSCMP is the I/O completion routine for PLAS region out swapping. 



005234 
005242 
005244 



032737 OOOOOOC 
001405 



OOOOOOG OSSCMP: BIT 

BEQ 
DIE 



#CS*ERR ! CS*EOF, SEGCHN iDid an I/O error occur? 

1* } Br if not 

#EM*SSE /System crash if swapping error 



10 005256 

11 005262 
12 

13 
14 

15 005270 

16 005274 
17 

18 
19 

20 005276 

21 005302 
22 

23 
24 
25 

26 005304 

27 005310 
28 

29 

30 

31 005314 

32 

33 

34 

35 005322 



113701 
016137 



005737 
001403 



004737 
000407 



0000000 
OOOOOOG 



000006 ' 



Map PAR 6 to job context block 

1*: MOVB OUTBSY. Rl ; Get index number of job being swapped 
OOOOOOG MOV LCXPAR(Rl),e#KPAR6 ; Map kernel par6 to job context block 

See if there is more of this region to transfer 



005112' 



013702 
004737 



000002 ' 
006610' 



000207 



TST 
BEQ 



SCBLEN 
2« 



; Any more of region left to transfer? 
/Br if not 



Transfer next portion of region 

; Initiate next transfer 



CALL 
BR 



OSSGO 
3* 



Finished swapping this region 

Indicate that the region is no longer in memori 



2*: MOV SCBRCB,R2 
CALL SEGFRE 



i Get address of region control block 
i Free memory space used by the region 



; Start outswap of base portion of the job 
> 

OCALL OUTSWP /Start swap of base portion of the job 

i Finished 

3*: RETURN 
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Allocate memory for regions during inswap 



f 
( 
( 
f 

i 
I 

i 
I 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



005324 
005326 
005330 



005340 
005344 
005350 



005354 
005360 
005364 
005366 
005374 
005376 
005402 
005406 
005412 
005414 
005420 
005422 
005426 
005432 



005440 
005442 
005444 
005446 



. SBTTL lASEGS — Allocate memory for regions during inswap 

lASEGS is called to allocate memory regions for PLAS regions for 
a job that is being inswapped. The RPAR and RPDR cells are also 
set up to reflect the current window mapping state. 

Inputs: 
Rl = Job index number 



010246 
010346 
010546 



lASEGS: MOV 
MOV 
MOV 



R2. -(SP> 
R3. -<SP) 
R5, -(SP) 



005332 016137 OOOOOOG OOOOOOG 



Map PAR6 to the job's context block 

MOV LCXPAR<R1)/ e#KPAR6 ; Map kernel par6 to job context block 
Compute address of start of PLAS regions 



016103 
066103 
072327 



012702 
016200 
001416 
032762 
001012 
072027 
010362 
020237 
001002 
010337 
060003 
062702 
020227 
103752 



OOOOOOG 
OOOOOOG 
000003 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

000003 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



MOV LBASE<R1),R3 
ADD LNBLKS<R1),R3 
ASH #3, R3 



iBase 512-byte block # of job region 
J Point past job base region 



/Convert to 64-byte page number 
Set base address for each region 



1*: 



3*: 
2*: 



MOV 
MOV 
BEQ 
BIT 
BNE 
ASH 
MOV 
CMP 
BNE 
MOV 
ADD 
ADD 
CMP 
BLO 



#RCBBAS> R2 ; Point to first region control block 
RC*PAG<R2).- RO » Get # 512~byte pages allocated to region 
2$ i Br if region is not allocated 

#RC*LCG. RC*FLG<R2)i Is this a shared region? 



2« 

#3, RO 

R3, RC*BAS<R2> 

R2, KEYRCB 

3* 

R3, KEYPAR 

RO, R3 

#RC**SZ. R2 

R2, #RCBEND 

1* 



Br if yes 

Convert to # 64-byte pages 

Set base 64-byte page # of region 

Is this region used for key definitions? 

Br if not 

Save pointer to base of key def region 

Point past end of region's area 

Point to next region control block 

Have we checked all regions? 

Loop if more to allocate 



005434 004737 005450 ' 



Set up mapping information for each PLAS window 

CALL MAPPLS > Set up mapping for PLAS regions 



012605 
012603 
012602 
000207 



inished 




MOV 


(SP)+,R5 


MOV 


<SP)+, R3 


MOV 


<SP)+-, R2 


RETURN 
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— Set up mapping for all PLAS uiindows 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



SBTTL MAPPLS 



Set up mapping for all PLAS windows 



MAPPLS is called to set up the memory mapping for all active PLAS 
uiindoius for the job. 



005450 010546 



005452 012705 OOOOOOG 

005456 105765 OOOOOOG 

005462 001402 

005464 004737 005506 ' 

005470 062705 OOOOOOG 

005474 020527 OOOOOOG 

005500 103766 



005502 012605 
005504 000207 



MAPPLS: MOV R5, -<SP) 

Begin loop to process each window for the job 



3*: 



4*: 



MOV 


#WCBBAS> R5 


TSTB 


WC*MAP<R5) 


BEQ 


4* 


CALL 


MAPSEG 


ADD 


#WC**SZ> R5 


CMP 


R5, #WCBEND 


BLO 


3* 


Finished 




MOV 


<SP)+, R5 


RETURN 





iPoint to first window control block 

i Is this window currently mapped? 

i Br if not 

iSet up mapping info for this window 

iPoint to next window control block 

; Have we done all windowsT' 

; Br if more to do 
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MAPSEG — Set up window mapping during an inswap 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 005506 

15 005510 

16 005512 

17 005514 

18 005516 
19 

20 
21 

22 005520 

23 005524 

24 005530 

25 005534 

26 005540 

27 005544 

28 005552 

29 005554 

30 005556 
31 

32 
33 
34 

35 005562 

36 005564 

37 005566 

38 005572 

39 005574 

40 005600 

41 005602 

42 005604 

43 005606 

44 005612 

45 005616 

46 005620 

47 005622 

48 005626 

49 005632 

50 005634 

51 005640 
52 

53 
54 

55 005644 

56 005646 

57 005650 



010146 
010246 
010346 
010446 
005046 



016502 
116503 
016504 
016201 
066501 
032762 
001401 
005216 
116502 



010400 
001457 
020037 
101402 
013700 
160004 
005300 
000300 
052700 
042700 
005716 
001005 
010063 
010163 
000404 
010063 
010163 



006302 
100421 
010062 



SBTTL MAPSEG 



Set up window mapping during an inswap 



MAPSEO is called to perform the actual mapping of a PLAS window to 

a physical memory region. The information in the window control block 

is used to set up the mapping. 

The RPAR and RPDR cells are set up to reflect the mapping. 

Inputs: 
R5 = Address of window control block. 

Outputs: 
RPAR & RPDR cells set to to reflect correct mapping for windows. 



MAPSEO: 



MOV 
MOV 
MOV 
MOV 

CLR 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -(SP) 
-(SP) 



/Assume mapping will be thru I-space 



Get information about region being mapped 



OOOOOOG 
0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 



6*: 



MOV 


WC$RCB(R5)>R2 


Get 


MOVB 


WC«PAR(R5)>R3 


Get 


MOV 


WC$LEN(R5),R4 


Get 


MOV 


RC*BAS(R2)»R1 


Get 


ADD 


WC*0FF(R5),R1 


Add 


BIT 


#RC*DSP,RC*FLG(Ri 


2) i 


BEQ 


6« 


Br 


INC 


(SP) 


Set 


MOVB 


WC*TRP(R5)>R2 


See 



address of region control block 
PAR index number (2*basB PAR #) 
# 64-byte blocks to be mapped 
base 64-bytB block # of region 
window offset within region 
Map this window thru D-space? 
if not* use I-space 
flag to use D-space registers 
if this window has any fast map regions 
Relies on sign extension if unused 



Begin loop to set up each PAR 



1*: 



000200 
000200 



000006 
100261 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



3*: 



7*: 



If 



8$: 



OOOOOOG 



MOV 


R4, RO 


BEQ 


2* 


CMP 


RO, 128. 


BLOS 


3* 


MOV 


128. , RO 


SUB 


RO, R4 


DEC 


RO 


SWAB 


RO 


BIS 


#6, RO 


BIC 


#100261* RO 


TST 


(SP) 


BNE 


7* 


MOV 


R0*RPDR(R3) 


MOV 


R1,RPAR(R3) 


BR 


8* 


MOV 


R0*RDDR(R3) 


MOV 


R1,RDAR(R3) 


is window is fast map 


ASL 


R2 


BMI 


5* 


MOV 


RO, SR$PDR(R2) 



Get # 64-byte b 
Br if finished 
We can only map 
Br if we can ma 
Map 128 blocks 
Get # 64~byte b 
Get # blocks -1 
Put # blocks in 
Allow read and 
Make sure unuse 
Are we mapping 
Br if using D-s 
Set shadow cell 
Set shadow cell 
Skip over D-spa 
Set shadow cell 
Set shadow cell 



locks left to map 
mapping 

128 blocks per PAR 
p all that is left 
through this PAR 
locks left after this PAR 

high order byte 
write access to page 
d PDR bits are zero 
thru I— or D-spaceT-* 
pace 

for PDR 

for PAR 
CB cells 

for D-space 

for D-space 



PDR 
PAR 



refresh the fast map cells 



Convert trap # to word index 

Skip if no fast map region associated 

Set PDR for fast map region 



I 
I 
ff 
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— Set up ujindow mapping during an inswap 



005654 010162 OOOOOOG 

005660 006202 

005662 110362 OOOOOOG 

005666 005704 

005670 001405 

005672 152762 0000000 OOOOOOG 

005700 005202 

005702 000403 

005704 142762 OOOOOOG OOOOOOG 4*: 



MOV 

ASR 

MOVE 

TST 

BEQ 

BISB 

INC 

BR 

BICB 



R1,SR«PAR<R2) 

R2 

R3, SR*PX(R2> 

R4 

4* 



; Set PAR base for fast map region 

J Convert index back to trap # 

; Set PAR index 

J Any more left to map? 

i Br if not 

#SR. MOR, SR*FLG<R2) ; There are more cells in this region 
R2 i Step up to next trap cell for next set 

5* 
#SR. MOR, SR*FLG(R2) jThis is the last cell for this region 



Advance par and par index and repeat until done 



005712 063701 000200 
005716 062703 000002 
005722 000717 



005724 005726 

005726 012604 

005730 012603 

005732 012602 

005734 012601 

005736 000207 



5*; 



2*: 



ADD 


128. ,Ri 


ADD 


#2, R3 


BR 


1* 


Finished 




TST 


(SP) + 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+.R1 


RETURN 





i Advance physical block number 
{Advance PAR index 
; Go load more PAR's 



i Clean up I- vs. D-space flag on stack 
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010246 



016137 OOOOOOG OOOOOOG 



TSPLAS — Programmed Logical Ad 
SEGIN — Inswap job regions 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 005740 
14 
15 
16 

17 005742 
18 
19 
20 

21 005750 

22 005754 

23 005762 

24 005764 

25 005772 

26 005774 

27 006002 

28 006004 

29 006010 

30 006014 
31 

32 
33 

34 006016 

35 006020 
36 

37 
38 
39 

40 006022 

41 006026 

42 006034 

43 006042 
44 

45 

46 

47 006050 

48 

49 

50 

51 006056 

52 006062 
53 

54 
55 

56 006064 

57 006066 
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SBTTL SEGIN — Inswap job regions 



012702 
032762 
001410 
032762 
001004 
032762 
001407 
062702 
020227 
103757 



000261 
000421 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



SEGIN is called to swap into memory any PLAS regions associated with 
a job. 

Inputs: 
Rl = Job index number 

Outputs; 
C-flag set ==> No regions need to be brought in 
C-flag cleared ==> Started inswap of a region 

SEGIN: MOV R2, -<SP) 

Map PAR6 to the job's context block 

MOV LCXPAR<Rl),e#KPAR6 i Map kernel par6 to job context block 

Determine if there are any regions that need to be inswapped 

MOV #RCBBAS> R2 ; Point to first region descriptor block 

1*: BIT #RC*USE, RC*FLG<R2) i Is this RCB active? 

BEQ 2* ; Br if not 

BIT #RC*LCG, RC*FLG<R2) i Is this a shared region? 

BNE 2« J Br if yes 

BIT #RC«INM* RC*FLG<R2)i Is this region already in memory? 

BEQ 3* -Br if not in memory 

ADD #RC«*SZi R2 ; Point to next region descriptor block 

CMP R2, #RCBEND ; Checked all region descriptors? 

BLO 1* i Br if not 

No regions need to be inswapped 

» Signal no swapping needed on return 



2$: 



SEC 
BR 



9* 



010237 
016237 
016237 
016237 



000002 ' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



3*: 



000004 ' 
000006 ' 
000010' 



052762 OOOOOOG OOOOOOG 



004737 
000241 



012602 
000207 



006070 



We found a region that needs to be inswapped. 
Set up information to describe the transfer. 

MOV R2j SCBRCB > Remember which region is being swapped 

MOV RC«BAS(R2)» SCBBAS i Set base address for the transfer 

MOV RC*LEN(R2),SCBLEN i Set # 64-byte blocks to transfer 

MOV RC*BLK(R2), SCBBLK ; Set base block number in swap file 

Set flag saying region is in memory 

BIS #RC*INM, RC*FL6<R2)i Set flag saying region is in memory 

Initiate the transfer 

i Start the inswap 

i Signal that we started a swap 



9*: 



CALL 


ISSGO 


CLC 




Finished 




MOV 


<SP)+, R2 


RETURN 
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gical Ad MACRO VOJ 


SEGIN - 

1 

2 
3 
4 
5 
6 
7 
8 
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— Insiuap job re 


gions 

i 
i 


006070 


010146 




10 


006072 


010246 




11 








12 








13 








14 


006074 


012701 


OOOOOOG 


15 


006100 


004737 


OOOOOOG 


16 








17 








18 








19 


006104 


063761 


000010' OOOOOOG 


20 


006112 


013761 


000004' OOOOOOG 


21 


006120 


012761 


006210' OOOOOOG 


22 


006126 


013700 


000006 ' 


23 


006132 


020027 


001770 


24 


006136 


101402 




25 


006140 


012700 


001770 


26 


006144 


160037 


000006 ' 3 


27 


006150 


060037 


000004 ' 


28 


006154 


010002 




29 


006156 


072237 


177775 


30 


006162 


060237 


000010' 


31 


006166 


072027 


000005 


32 


006172 


010061 


OOOOOOG 


33 








34 








35 








36 


006176 


004737 


OOOOOOG 


37 








38 








39 








40 


006202 


012602 




41 


006204 


012601 




42 


006206 


000207 
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ISSGO is called to initiate an inswap of a PLA3 region. 

Inputs: 

SCBBAS = Address in 64-bute units of memory where transfer is to begin 

SCBLEN = Number of 64-byte blocks to transfer 

SCBBLK = Block number in swap file 



ISSGO: 



MOV 
MOV 



R1,-<SP) 
R2, -<SP) 



Get a system I/O queue element 



MOV #SEGCHN, Rl 
CALL GETSYQ 



j Point to region swapping channel 

; Get a system I/O queue element <Rl=addres5) 



Set up I/O queue element for the transfer 



1*: 



ADD 

MOV 

MOV 

MOV 

CMP 

BLOS 

MOV 

SUB 

ADD 

MOV 

ASH 

ADD 

ASH 

MOV 



SCBBLK, 0. BLKN<R1) iFile block number 

SCBBAS/ Q. PAR (Rl ) ; Base 64-byte memory address 

#ISSCMP, Q. C0MP<R1 ); Address of completion routine 



SCBLEN, RO 

RO, #1016. 

1$ 

#1016. , RO 

RO, SCBLEN 

RO, SCBBAS 

RO, R2 

#-3, R2 

R2, SCBBLK 

#5, RO 

RO. Q. WCNT(Rl) 



Queue the I/O request 

CALL SYQIO 
Finished 



MOV 
MOV 
RETURN 



(SP)+, R2 
<SP)+, Rl 



1 operation 



Get # 64-byte units to transfer 
Compare to max we can transfer in 
Br if we can read all this time 

transfer 

remaining to be transferred 

address 



Truncate the 
Decrease amt 
Advance base 



Cvt # 64-byte blocks to # 512-byte blocks 
Advance file block number 
Convert to # words to transfer 
Set word count in queue element 



Initiate the I/O operation 
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MACRO V05. 05 Wednesday 18-Jan-89 12: 12 Page 35 



ISSCMP is the I/O completion routine for PLAS region inswaps. 



006210 
006216 
006220 



006232 
006236 
006242 



006244 
006250 



032737 
001405 



OOOOOOC OOOOOOG ISSCMP: BIT 

BEG 
DIE 



113701 
005737 
001403 



004737 

000406 



OOOOOOG 
000006 ' 



006070 ' 



006252 
006256 



004737 
103003 



005740 



006260 



006266 000207 



#CS*ERR ! CS*EOF, SEGCHN i Did an I/O error occur? 

1* ; Br if not 

#EM*SSE > System crash if region swap error 



See if there is more of this region remaining to be transferred 

1*: MOVE INBSY, Rl ; Get index of job being swapped 

TST SCBLEN i Any portion of region left to transfer? 

BEQ 2* ;Br if not 

Start transfer of next portion of the region 

i Start next transfer 



CALL 
BR 



ISSGO 
3* 



Finished region inswap 

See if there are more regions to inswap 



2$: 



CALL 
BCC 



SEGIN 
3* 



/Try to start another region inswap 
J Br if started another transfer 



Finished inswapping the last region 
Say job is completely in memory now 



OCALL INSFIIM 
Finished 
3*: RETURN 



i Completed inswap 
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Programmed Logical Ad MACRO 
Do PLAS cleanup on job exit 



006270 
006272 



006274 
006300 
006304 
006310 
006312 
006316 
006320 
006326 
006332 
006336 
006342 



006344 
006350 
006354 
006360 
006364 
006370 



006372 
006374 
006376 



010246 
010546 



012702 
016200 
032700 
001410 
032700 
001403 
052762 
004737 
062702 
020227 
103756 



012705 
004737 
005065 
062705 
020527 
103767 



012605 
012602 
000207 
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. SETTL PLSXIT — Vo PLAS cleanup on job exit 

PLSXIT is called from the code that does job cleanup uihen a job 
exits or is aborted. 



PLSXIT: MOV 
MOV 



R2, -(SP) 
R5, -<SP) 



See if any regions need to be freed on job exit or abort 



ooooooe 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
004010' 
OOOOOOG 
OOOOOOG 



4*: 



OOOOOOG 



5*: 
6*: 



MOV 

MOV 

BIT 

BEQ 

BIT 

BEQ 

BIS 

CALL 

ADD 

CMP 

BLO 



#RCBBAS. R2 

RC*FLG(R2),R0 

#RC*USE, RO 

6$ 

#RC*EXI,RO 

5* 



;Point to first private region control block 

j Get region status flags 

i Is this RCB active? 

; Br if not 

> Eliminate region on exit? 

> Br if not 



#RC*AGE/ RC*FLG<R2) i Force elimination of region 



RELRGN 
#RC««SZ. R2 
R2, #RCBEND 
4* 



Deallocate any uindoiDs 



OOOOOOG 
004500' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



3*: 



MOV 


#WCBBAS> R5 


CALL 


WCBUMP 


CLR 


WC*SIZ<R5) 


ADD 


#WC**SZ, R5 


CMP 


R5, #WCBEND 


BLO 


3* 


Finished 




MOV 


<SP)+, R5 


MOV 


<SP)+>R2 


RETURN 





Release the region 
Point to next RCB 
Checked all regions? 
Loop if not 



i Point to first windoui control block 

> Unmap the windou) 

j Say this uiindow is free 

/Point to next uindow control block 

; Done all windows? 

i Loop if not 



c 



€ 

f 
< 

i 
i 
« 
i 

f 

i 



I 



I 



4 
< 

i 
i 
« 
t 

I 
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C 
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006400 010246 



006402 
006406 

12 006412 

13 006416 
006420 
006424 
006426 
006434 
006440 
006444 
006450 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

24 006452 

25 006454 



012702 
016200 
032700 
001410 
032700 
001403 
052762 
004737 
062702 
020227 
103756 



012602 
000207 



SBTTL PLSOFF 



Do PLAS cleanup at job logoff 



PLSOFF is called from the code that does a job logoff to do 
cleanup processing for PLAS regions. 



PLSOFF: MOV 



R2, -(SP) 



Detach from all regions 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOC 

OOOOOOG OOOOOOG 
004010' 
OOOOOOG 
OOOOOOG 



1*: 



3*: 
2*: 



MOV 

MOV 

BIT 

BEQ 

BIT 

BEQ 

BIS 

CALL 

ADD 

CMP 

BLO 

Fini shed 

MOV 
RETURN 



} Point to Ist RCB 

i Get status flags from RCB 



#RCBBAS> R2 

RC*FLG(R2),R0 

#RC*USE. RO J Is this RCB active? 

2* i Br if not 

#RC*PVT!RC*OFF. RO ; Private or release on logoffT' 

3* j Br if not 

#RC*AGE* RC*FLG<R2) ; Force release of region 

RELRGN (Break the attachment 

#RC**SZ>R2 i Point to next RCB 

R2, #RCBEND i Checked all RGB's? 

1* j Loop if not 



(SP)+>R2 



c 

I 



i 

< 
I 
I 

i 
i 

c 
I 

i 



t 
i 
C 



TSPLAS - 
FRERCB - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
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44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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55 
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Free memory and swap space for a region 



006456 010546 



006460 016200 OOOOOOG 
006464 032700 OOOOOOG 
006470 001445 



006472 032700 OOOOOOG 

006476 001405 

006500 042762 OOOOOOG OOOOOOG 

006506 016202 OOOOOOG 



006512 004737 007132' 



006516 004737 006610' 



006522 032762 OOOOOOG OOOOOOG 

006530 001410 

006532 113705 OOOOOOG 

006536 166265 OOOOOOG OOOOOOG 

006544 166265 OOOOOOG OOOOOOG 



006552 005062 OOOOOOG 
006556 005062 OOOOOOG 
006562 005062 OOOOOOG 



006566 020237 OOOOOOG 

006572 001004 

006574 005037 OOOOOOG 

006600 005037 OOOOOOG 



006604 012605 
006606 000207 



. SBTTL FRERCB — Free memory and suiap space for a region 

FRERCB is called to deallocate memory space and swap file space 
for a plas region. 

Inputs: 
R2 = Address of Region Control Block 

FRERCB: MOV R5, -(SP) 

Return immediately if the region is not allocated 

MOV RC*FLG(R2)> RO * Get status flags from RCB 
BIT #RC*USE, RO ; Is this RCB active? 
BEQ 9* jBr if not 

See if this RCB is a local copy of a shared RCB. 

BIT #RC*LCG, RO ;Is this a local copy of shared RCB? 

BEQ 5* iBr if not 

BIC #RC*USE, RC*FLG<R2) i Say local copy is free 

MOV RC*BLK<R2), R2 /Get pointer to shared RCB 

Free suiap file space allocated to the region. 

5*: CALL SWPFRE /Free swap file space 

Free memory space allocated for the region 

CALL SEGFRE i Free memory space 

If this is a private region/ reduce memory space used by job 

BIT #RC*PVT, RC«FLG<R2) /Is this a private region? 

BEQ 3* /Br if not 

MOVE CORUSR/ R5 i Get job index number 

SUB RC*PAG<R2)/ LNSBLK<R5) /Reduce # pages used by regions for job 

SUB RC*PAG(R2)/LMEMIN(R5) ; Reduce total # pages used by job 

Mark the region control block as free 

3*: CLR RC*LEN(R2) /Say no memory allocated for this region 
CLR RC*PA0(R2) 
CLR RC*FLG<R2> 
/ 

/ If this region was used for key definitions/ say it has been deallocated 
/ 

/Was this the key definition region? 

/Br if not 

/Say region is gone 

/No user-defined keys 



I 

€ 



CMP 


R2/ KEYRCB 


BNE 


9* 


CLR 


KEYRCB 


CLR 


KEYPAR 


) Finished 




9*: MOV 


<SP)+/R5 


RETURN 





t 
i 
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gical Ad 


SEGFRE - 

1 

2 
3 


™ Free 


memory s 


pace for 








4 








5 








6 








7 








8 


006610 


010146 




9 


006612 


010246 




10 


006614 


010201 




11 








12 








13 








14 


006616 


016100 


OOOOOOG 


15 


006622 


001412 




16 


006624 


016102 


OOOOOOG 


17 


006630 


000241 




18 


006632 


006002 




19 


006634 


072227 


177776 


20 


006640 


016100 


OOOOOOG 


21 


006644 


004737 


OOOOOOG 


22 








23 








24 








25 


006650 


042761 


OOOOOOG 


26 


006656 


005061 


OOOOOOG 


27 








28 








29 








30 


006662 


012602 




31 


006664 


012601 




32 


006666 


000207 
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a region 

. SBTTL SEGFRE — Free memory space for a region 

SEGFRE is called to deallocate all memory space used by a PLAS region. 

Inputs: 
R2 = Address of region control block for the region. 



SEGFRE: MOV 
MOV 
MOV 



R1»-(SP) 
R2, -<SP) 
R2, Rl 



} Carry RCB address in Rl 

Free the memory space used by the region 

MOV RC*LEN(R1),R0 i Get # 64-byte blocks allocated for region 

BEQ 1* ; Br if no memory allocated for the region 

MOV RC*BAS(R1),R2 i Get base 64-byte block # for region 

CLC i Convert to 512 byte block number 

ROR R2 

ASH #-2, R2 

MOV RC*PAG(R1),R0 i Get # 512-byte pages used by this region 

CALL FREMEM J Free the memory space used by this region 

Mark region as not in memory 



OOOOOOG 1*: 



BIC 
CLR 

Finished 



#RC*INM. RC*FLG<R1 ) ; Say region is not in memori 
RC«BAS<R1) 



MOV (SP)+, R2 
MOV (SP)+, Rl 
RETURN 



i 

i 



I 
I 



4 
« 
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I 



i 

I 
I 
c 
I 
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i 
i 

< 

t 
t 



TSPLAS - 


— Programmed Logical Ad 
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1 

2 








3 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 








14 








15 








16 


006670 


010146 




17 


006672 


010346 




18 


006674 


010446 




19 


006676 


010546 




20 


006700 


010046 




21 








22 








23 








24 


006702 


013704 


000012' 


25 


006706 


005005 




26 


006710 


005000 




27 








28 








29 








30 








31 


006712 


013702 


ooooooe 


32 


006716 


005724 




33 


006720 


001005 




34 


006722 


062705 


000020 


35 


006726 


020502 




36 


006730 


103772 




37 


006732 


000470 




38 


006734 


005744 




39 








40 








41 








42 


006736 


012701 


000001 


43 


006742 


013702 


ooooooe 


44 


006746 


020502 




45 


006750 


103061 




46 


006752 


030114 




47 


006754 


001006 




48 


006756 


005205 




49 


006760 


006301 




50 


006762 


103371 




51 


006764 


006101 




52 


006766 


005724 




53 


006770 


000766 




54 








55 








56 








57 









stuap file 
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. SBTTL SWPGET — Find space in region swap file 

Try to find space in the region swap file for a PLAS region. 

Inputs: 
RO = Number of blocks needed 

Outputs: 
C-flag cleared ==> Found the requested space. 
C-flag set ==> Could not find enough free space. 
R2 = Starting block number of allocated area. 

RO = Size of largest available region if the request could not 
be satisfied; or the size of the request if the request 
(lias satisfied. 



SWPGET: 



MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R3, -<SP) 
R4, -<SP) 
R5, -(SP) 
RO, -<SP) 



Save requested # blocks on top of stack 



Initialize pointers to bit map 



MOV 
CLR 
CLR 



SSMAP. R4 

R5 

RO 



i Base of bit map table 
; Initialize block number 
i Initialize largest region 



size 



Rapidly skip over allocated blocks at the front of the file 
Do this by checking 16 blocks at a time 



I 

c 

I 

( 

I 



15*: 



16*: 



MOV 

TST 

BNE 

ADD 

CMP 

BLO 

BR 

TST 



VPLAS> R2 
(R4) + 
16* 

#16. , R5 
R5, R2 
15* 
12* 
-(R4) 



Get total # blocks in swap file 

Any free blocks in this word? 

Br if yes 

Advance block number 

Have we gone past end of file? 

Keep looking if not 

There are no free blocks 

Point back to word with 1st free 



block 



Search for the start of a free region 



8*: 
1*: 



MOV 


#1,R1 


MOV 


VPLAS, R2 


CMP 


R5, R2 


BHIS 


12* 


BIT 


Rl, (R4) 


BNE 


2* 


INC 


R5 


ASL 


Rl 


BCC 


1* 


ROL 


Rl 


TST 


(R4) + 


BR 


1* 



Get bit mask 

Get total number of blocks in swap file 

Have we gone past end of the file? 

Br if yes 

Is this block free? 

Br if found a free block 

Advance block number 

Shift bit mask for next block 

Br if didn't shift out of end of word 

Rotate bit back into right end of word 

Point to next word of bit map 

Continue search for free block 



Found the start of a free region in swap file. 
See if it is big enough to satisfy request. 



( 

I 

f 
I 

4 
f 
( 
I 
f 
I 
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( 
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I 
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i 
I 
( 
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-- Find 


space in region 


58 


006772 


010502 


59 


006774 


010503 


60 


006776 


061603 


61 


007000 


030114 


62 


007002 


001412 


63 


007004 


005205 


64 


007006 


006301 


65 


007010 


103002 


66 


007012 


006101 


67 


007014 


005724 


68 


007016 


020503 


69 


007020 


103011 


70 


007022 


020537 OOOOOOG 


71 


007026 


103764 


72 






73 






74 






75 






76 


007030 


010503 


77 


007032 


160203 


78 


007034 


020300 


79 


007036 


101741 


80 


007040 


010300 


81 


007042 


000737 


82 






83 






84 






85 






86 


007044 


010205 


87 


007046 


005004 


88 


007050 


071427 000020 


89 


007054 


012701 000001 


90 


007060 


072105 


91 


007062 


006304 


92 


007064 


063704 000012' 


93 


007070 


011603 


94 


007072 


040114 


95 


007074 


006301 


96 


007076 


103002 


97 


007100 


006101 


98 


007102 


005724 


99 


007104 


077306 


100 


007106 


012600 


101 


007110 


000241 


102 


007112 


000402 


103 






104 






105 






106 


007114 


005726 


107 


007116 


000261 


108 






109 






110 






111 


007120 


012605 


112 


007122 


012604 


113 


007124 


012603 


114 


007126 


012601 



file 



2*: 



5*: 



3*: 



MOV 


R5iR2 


MOV 


R5, R3 


ADD 


( SP ) , R3 


BIT 


Rl, (R4) 


BEQ 


7* 


INC 


R5 


ASL 


Rl 


BCC 


3« 


ROL 


Rl 


TST 


<R4) + 


CMP 


R5, R3 


BHIS 


4* 


CMP 


R5. VPLAS 


BLO 


5* 



; Save starting block number 

f Calculate block # beyond end of uihat we need 

Is this block free? 

Br if not free 

Advance block number 

Shift bit mask 

Br if did not shift bit out of word 

Shift bit into right end of word 

Point to next word in bit map 

Have we found enough space to satisfy request 

Br if yes 

Have we gone past end of the file? 

Keep searching if not 



This region was not large enough to satisfy the request. 
Save largest region size. 



7«: MOV 
SUB 
CMP 
BLOS 
MOV 
BR 

We found £ 
Claim it. 

4$: MOV 
CLR 
DIV 
MOV 
ASH 
ASL 
ADD 
MOV 

10*: BIC 
ASL 
BCC 
ROL 
TST 

9*: SOB 
MOV 
CLC 
BR 



R5, R3 
R2' R3 
R3, RO 
8$ 

R3, RO 
8« 



/Get number of block beyond end of region 

iCalc number of blocks in the region 

; Is new region larger than previous one?" 

i Br if not 

; Save largest region size 



region large enough to satisfy the request. 



R2. R5 

R4 

#16. ,R4 

#1,R1 

R5, Rl 

R4 

SSMAP, R4 

<SP)>R3 

Rl, (R4) 

Rl 

9* 

Rl 

(R4)-«- 

R3, 10* 

(SP)+, RO 

13* 



Set starting block number 

Clear high-order for divide 

Convert block # to word and bit index 

Get bit mask 

Position bit mask 

Convert word number to byte number 

Point to word within bit map 

Get request size 

Mark blocks as in use 

Shift bit mask 

Br if didn't shift out of word 

Shift bit back into right end of word 

Advance to next word of bit map 

Mark all blocks in region as in use 

Return original request size in RO 

Signal success on return 



Could not find a large enough region 



12*: 



TST 
SEC 

Finished 



<SP) + 



; Pop request size off of stack 
j Signal failure on return 



13*: 



MOV 
MOV 
MOV 
MOV 



(SP)+, R5 
(SP)+. R4 
<SP)+, R3 
(SP)+,R1 
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I 
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115 007130 000207 RETURN 
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— Free space in region swap file 

. SBTTL SWPFRE — Free space in region swap file 

Deallocate space in region swap file. 

Inputs: 
R2 = Pointer to region descriptor 



007132 010146 
007134 010446 
007136 010546 



007140 032762 OOOOOOG OOOOOOG 

007146 001426 

007150 016205 OOOOOOG 

007154 005004 

007156 071427 000020 

007162 012701 000001 

007166 072105 

007170 006304 

007172 063704 000012' 

007176 016200 OOOOOOG 



007202 050114 

007204 006301 

007206 103002 

007210 006101 

007212 005724 

007214 077006 



007216 042762 OOOOOOG OOOOOOG 



007224 012605 

007226 012604 

007230 012601 

007232 000207 



SWPFRE: MOV 
MOV 
MOV 



R1,-<SP) 
R4, -<SP) 
R5, -<SP) 



Calculate position in bit map of start of region being freed 



BIT 
BEQ 
MOV 
CLR 
DIV 
MOV 
ASH 
ASL 
ADD 
MOV 



#RC*SFA, RC*FLG<R2) ; Has swap file space been allocated? 



9* 

RC*BLK(R2).R5 

R4 

#16. ,R4 

«1>R1 

R5, Rl 

R4 

SSMAP, R4 

RC*PAG<R2),R0 



Br if not — nothing to free 

Get starting block number 

Clear high-order for divide 

Convert block number to word and bit index 

Get a bit mask 

Position bit mask 

Convert word number to byte number 

Point to word in bit map 

Get # 512-byte pages used by region 



Set bits in bit map saying blocks are free 



1«: 



2$: 



BIS 
ASL 
BCC 
ROL 
TST 
SOB 



Rl, <R4) 

Rl 

2$ 

Rl 

(R4) + 

RO, 1$ 



; Set bit saying block is free 

; Shift bit mask 

i Br if didn't shift out of word 

iShift bit back into right end of word 

> Point to next word in bit table 

i Set all blocks free 



Say region has no allocated swap file blocks 

BIC #RC*SFA. RC*FLG<R2) i Say region has no swap file space 



Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



<SP)+>R5 
(SP)+, R4 
(SP)+. Rl 
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007234 
007236 



010246 
010546 



007240 
007244 
007250 
007254 
007256 



007262 
007266 
007272 
007276 
007302 
007306 
007312 
007316 



007320 
007322 
007324 



007326 

etected: 



012705 
072527 
020537 
103002 
010537 



012705 
010537 
013702 
062702 
072227 
042702 
012725 
077203 



012605 
012602 
000207 



OOOOOOC 

000003 

OOOOOOG 

OOOOOOG 



007326 ' 
000012' 

ooooooe 

000017 
177774 
170000 
177777 



000001 




»*« Assembler statistics 



Work file reads: 
Work file writes: 
Size of work file: 
Size of core pool: 
Operating system: 







189 Words < 

18176 Words 

RT-ll 



. SBTTL PLSINI — Initialize PLAS system 
Initialize the PLAS system during system startup. 



PLSINI: MOV 
MOV 



R2, -<SP) 
R5, -(SP) 



Possibly reduce size of PLAS swap file if we don't have room 
enough for the required bit map. 

MOV #137774-PLST0P, R5 i Get # bytes of available space in seg 

ASH #3> R5 > Get max # blocks we can hold in map 

CMP R5» VPLAS J Compare with requested amt 

BHIS 2* i Br if requested amt ok 

MOV R5, VPLAS ; Reduce size of PLAS swap file 

Allocate a bit map to keep track of free blocks in the swap file 



2*: 



1*: 



MOV 
MOV 
MOV 
ADD 
ASH 
BIC 
MOV 
SOB 

Finished 



MOV 
MOV 
RETURN 



1 Pages) 
< 71 Pages) 



Elapsed time: 00:01:00.11 

, LP: TSPLAS==DK: TSPLAS/C/N: SYM 



#PLSTOP. R5 
R5, SSMAP 
VPLAS, R2 
#15. ,R2 
#-4, R2 
#170000>R2 
#177777, <R5)+ 
R2, 1$ 



<SP)+, R5 
(SP)+, R2 



; Get pointer past top of PLAS code 

i Set pointer to base of table 

; Get # blocks in PLAS swap file 

i Bound up to word 

; Get # words needed for bit map 

J Clear sign extension 

j Turn all bits on in table 



Top of PLAS cod( 

PLSTOP: 

. END 
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TSPLAS 


— Programmed Logica 


1 Ad MACRO 


V05. 05 


Wednesda 




Cross reference 


table <CREF 


V05. 05) 








*INDRN 


1-28 


3-36 










*UDSPC 


1-45 


3-27 










BADEMT 


1-29 


2-10 










CHKABT 


1-43 


5-133 










CHKATT 


4-26 


5-25 


5-37 


20-1 1# 






CHKRCB 


6-12 


9-50 


10-21 


25-10# 






CORUSR 


1-37 


3-20 


5-84 


19-22 


23-36 




CRAW 


2-18 


9-5# 










CRRG 


2-16 


3-5# 










CS*EOF 


1-26 


29-4 


35-4 








CS*ERR 


1-26 


29-4 


35-4 








CUDARO 


1-46 


22-61* 










CUDDRO 


1-46 


22-58* 










CUPARO 


1-39 


22-54* 










CUPDRO 


1-39 


22-51* 










CXTPAG 


1-37 


13-76 










DIEARG 


1-56 












DIEMSG 


1-56 


29-6* 


35-6* 








ECO 


1-7S# 


9-73 










EC! 


l-79# 


9-36 










EC 10 


l-86# 


4-50 


5-65 








ECU 


l-87# 












EC12 


l-88# 


4-34 


5-54 








EC14 


l-89# 


8-22 










EC15 


l-90# 


20-20 










EC2 


l-80# 


25-27 










EC20 


1-91# 


3-25 










EC21 


l-92# 


3-29 










EC 3 


1-81# 


10-13 


13-21 


24-46 






EC 4 


l-82# 


10-50 










ECS 


i-e3# 


12-12 










EC 6 


i-e4# 


17-21 


18-21 








EC 7 


l-85# 


4-160 


5-15 


5-182 


20-34 




ELAW 


2-19 


11 -6# 










ELMCOM 


7-21 


7-26 


8-15 


8-28# 






ELMPVT 


6-17 


7-9# 










ELMSHR 


6-18 


8-9# 










ELRG 


2-17 


6-5# 










EM*SSE 


1-26 


29-6 


35-6 








EMTBLK 


1-29 


2-7 


24-10 








EMTPLS 


1-19 


2-7# 










EMTXIT 


1-30 


4-113 


5-175 


8-42 


9-121 




FORCE 


5-31 


16-14# 










FLCRCB 


5-22 


15-14# 










FLRCB 


4-21 


14-14# 










FREMEM 


1-39 


39-21 










FRERCB 


21-64 


38-9# 










GETSYQ 


1-25 


28-16 


34-15 








OETUDB 


3-9 


6-5 


9-5 


10-5 


11-6 




GETWCB 


10-10 


11-7 


12-6 


13-18 


24-27# 




GGRCB 


5-62 


18-12# 










GLRCB 


4-39 


5-39 


5-60 


17-12# 






GMCX 


2-22 


13-7# 










GMCXO 


13-14 


13-69# 










lASEGS 


1-19 


30-10# 










IDSFLG 


1-45 


3-23 


22-30 
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INBSY 


1-27 


35-10 






















INIRCB 


17-27 


18-27 


19-11# 




















INSFIN 


1-31 


35-28 






















ISSCMP 


34-21 


35-4# 






















isseo 


33-51 


34-9# 


35-16 




















KEYPAR 


1-27 


30-35* 


38-51* 




















KEYRCB 


1-27 


30-33 


38-48 


38-50* 


















KPAR6 


1-24 


27-17* 


29-11* 


30-16* 


33-17* 
















LEASE 


1-24 


1-28 


30-20 




















LCXPAR 


1-39 


27-17 


29-11 


30-16 


33-17 
















LMEMIN 


1-38 


4-80* 


38-38* 




















LMINQ 


1-38 
























LNBLKS 


1-28 


4-151 


13-75 


30-21 


















LNSBLK 


1-30 


4-79* 


4-149 


4-150* 


38-37* 
















LQUAN 


1-38 
























LSWll 


1-45 


3-27 






















LSW5 


1-28 


3-36 






















LSW6 


1-31 
























MAP 


2-20 


10-5# 






















MAP 2 


9-120 


10-12 


10-1S# 




















MAPPLS 


1-19 


30-43 


31-6# 




















MAPSEG 


31-13 


32-14# 






















MEMXPN 


1-33 


4-152 






















MXPLAS 


2-8 


2-24# 






















NUMWCB 


1-36 


24-31 






















OSSCMP 


28-22 


29-4# 






















osseo 


27-47 


28-10# 


29-20 




















OUTBSY 


1-26 


29-10 






















OUTSWP 


1-26 


29-31 






















OVRHC 


1-24 


5-121 


5-123 


29-31 


35-28 
















P2*CGR 


1-31 


5-13 






















PLSERR 


3-30 


4-35 


4-51 


4-161 


5-17 


5-55 


5-66 


5-183 


8-23 


9-37 


9- 


-74 




10-51 


12-13 


13-22 


17-22 


18-22 


20-21 


20-35 


24-47 


25-28 


26~10# 






PLSINI 


1-19 


42-5# 






















PLSJMP 


2-12 


2-16# 


2-24 




















PLSOFF 


1-19 


37-6# 






















PLSTOP 


42-11 


42-19 


42-36# 




















PLSXIT 


1-19 


36-6# 






















PRIVC2 


1-31 


5-13 






















PVTRGN 


3-35 


3-37 


3-39 


4-1 1# 


















Q. BLKN 


1-25 


28-20* 


34-19* 




















Q. COMP 


1-25 


28-22* 


34-21* 




















Q. PAR 


1-25 


28-21* 


34-20* 




















Q. WCNT 


1-26 


28-34* 


34-32* 




















QNSPND 


1-43 


5-132 






















R. GID 


1-30 


4-109* 


5-171* 


6-9 


8-33* 
















R. GSIZ 


1-29 


19-26 


20-25 




















R. GSTS 


1-30 
5-174* 


3-13 
7-19 


3-16* 
8-13 


4-81 
8-38* 


4-86* 


4-93 


4-110 


4-112* 


5-144 


5-146* 


5- 


-15 


R. NAME 


1-40 


14-28 


14-31 


15-26 


15-29 


16-23 


16-26 


19-40 


19-42 








RC**SZ 


1-24 


14-37 


15-35 


16-32 


17-15 


18-15 


19-16 


27-28 


30-37 


33-28 


36- 


-19 


RC*AEP 


1-41 


4-97 


5-76 


21-37 


21-39 


21-56 


21-59 












RC*AGE 


1-42 


7-25 


8-24 


21-34 


21-40 


21-47 


21-49 


21-53 


21-58 


36-17 


37- 


-16 


RCitiBAS 


1-25 
39-16 


4-59* 
39-26* 


5-108* 


5-120* 


5-134 


5-158 


5-158* 


22-22 


27-41 


30-32* 


32- 


-25 


RC*BLK 


1-27 


4-74* 


4-144# 


5-24 


5-159* 


8-9 


21-46 


27-43 


33-43 


38-22 


41- 


-16 



10-14 



5-172 



37-18 



33-41 
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RC*CNT 


1-43 


4-90* 


5-163 


5-165* 


5-166* 


8-20 


21-36* 


21-51* 














RC*DSP 


1-45 


4-103 


5-79 


5-155 


5-157 


22-28 


23-16 


32-27 














RC*EXC 


1-41 


4-44 


5-42 


5-72 


5-73 


20-18 


21-55 
















RC*EXI 


1-40 


4-100 


5-154 


36-15 






















RC*FLG 


1-24 


4-44* 


4-60* 


4-75* 


4-91 


4-104* 


4-145* 


5-42* 


5-72* 


5- 


-73* 


5-76* 


5-79* 






5-119* 


5-138* 


5-143* 


5-150* 


5-154* 


5-155 


5-157* 


6-16 


7-13 


7- 


-25* 


8-24* 


8-35 






14-18 


15-18 


16-18 


17-13 


18-13 


19-39* 


20-16 


20-18 


21-19* 


21- 


-26 


21-39* 


21-40* 






21-45* 


21-49* 


21-50 


21-55* 


21-58* 


21-59* 


22-28 


23-16 


27-22 


27- 


-24 


27-26 


30-29 






32-27 


33-22 


33-24 


33-26 


33-47* 


36-12 


36-17* 


37-11 


37-16* 


38- 


-13 


38-21* 


38-34 


f • 




38-44* 


39-25* 


41-14 


41-36* 




















I 

1 


RC*GBL 


1-40 


5-42 


5-72 


5-73 


7-13 


14-21 


19-39 


21-32 














RC*INM 


1-24 


4-60 


5-143 


5-150 


27-26 


33-26 


33-47 


39-25 












1 ( 


RC*LCG 


1-44 


5-42 


5-73 


6-16 


15-21 


20-16 


21-27 


27-24 


30-29 


33- 


-24 


38-19 




1 


RC*LEN 


1-24 
38-42* 


5-43 
39-14 


5-45 


5-45* 


5-63 


10-47 


10-53 


19-28* 


20-28 


20- 


-33 


27-42 


33-42 


1 


RC*NAM 


1-40 


14-29 


14-32 


15-27 


15-30 


16-24 


16-27 


19-41* 


19-43* 












RC*OFF 


1-39 


4-44 


37-14 
























RC*OWN 


1-41 


19-22* 


























RC*PAG 


1-38 
39-20 


4-48 
41-23 


5-46 


5-46* 


5-90 


5-98 


5-100 


19-33* 


30-27 


38- 


-37 


38-38 


38-43* 




RC*PVT 


1-41 


4-44 


14-23 


20-16 


37-14 


38-34 


















RC*SFA 


1-39 


4-75 


4-145 


41-14 


41-36 




















RC*UNM 


1-44 


8-35 


21-19 
























RC*USE 


1-27 
21-45 


4-92 
27-22 


4-145 
33-22 


5-119 
36-13 


5-138 
37-12 


5-143 
38-14 


5-150 
38-21 


14-19 


15-19 


16- 


-18 


17-13 


18-13 




RCBBAS 


1-29 


14-14 


15-14 


17-12 


25-12 


27-21 


30-26 


33-21 


36-11 


37- 


-10 








RCBEND 


1-29 


14-38 


15-36 


17-16 


25-14 


27-29 


30-38 


33-29 


36-20 


37- 


-19 








RDAR 


1-46 


22-60* 


32-51* 
























RDDR 


1-46 


22-57* 


23-20 


32-50* 






















RELRGN 


8-28 


21-8# 


36-18 


37-17 






















RPAR 


1-37 


22-53* 


32-48* 
























RPDR 


1-37 


22-50* 


23-18 


32-47* 






















RS. AGE 


1-41 


4-95 


5-74 
























RS. CGR 


1-40 


3-34 


4-15 


4-32 


5-52 


19-37 


















RS. CRR 


1-31 


3-14 


4-111 


5-173 






















RS. DSP 


1-45 


3-21 


4-101 


5-77 






















RS. E6R 


1-44 


7-20 


8-14 
























RS. EX I 


1-42 


4-98 


5-152 
























RS. GBL 


1-40 


3-34 


4-15 


4-83 


19-37 




















RS. NAL 


1-38 


3-14 


4-82 


5-145 






















RS. NEW 


1-38 


3-14 


4-85 


5-145 






















RS. PVT 


1-40 


3-38 
























1 


RS. UNM 

S*WFM 

SA$R6N 


1-44 
1-43 
1-43 


3-14 

5-131 

5-124 


8-37 






















( < 


SCBBAS 


1-9S# 


27-41* 


28-21 


28-28* 


33-41* 


34-20 


34-27* 
















SCBBLK 


1-100# 


27-43* 


28-20 


28-31* 


33-43* 


34-19 


34-30* 
















SCBLEN 


l-99# 


27-42* 


28-23 


28-27* 


29-15 


33-42* 


34-22 


34-26* 


35-11 












SCBRCB 
SCPGET 
SEGCHN 


l-97# 

1-42 

1-25 


27-40* 
5-123 
28-15 


29-26 
29-4 


33-40* 
34-14 


35-4 




















SEGFRE 

SEGIN 

SEGOUT 


4-72 
1-19 
1-19 


29-27 

33-13# 

27-13# 


38-30 
35-22 


39-8# 






















SETERR 


1-29 


26-10 


























SETMAP 


1-37 


23-37 
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SHRRCB 


1-41 


16-14 


18-12 


25-16 














SHRRCN 


1-41 


16-33 


18-16 


25-18 














SHRRGN 


3-40 


5-9# 


















SP*CMD 


1-42 


5-124* 


















SP«DW1 


1-42 


5-126* 


















SP*JOB 


1-42 


5-125* 


















SR*FLG 


1-32 


32-63* 


32-66* 
















SR*PAR 


1-32 


32-58* 


















SRfPDR 


1-32 


23-28* 


32-57* 
















SR*PX 


1-32 


32-60* 


















SR. MOR 


1-32 


32-63 


32-66 
















SSMAP 


l-i01# 


40-24 


40-92 


41-22 


42-20* 












SWPFRC 


1-42 


5-121 


















SWPFRE 


38-26 


41-8# 


















SWPGET 


4-67 


4-124 


4-142 


40-16# 














SYQIO 


1-26 


28-38 


34-36 
















SYSHLT 


1-56 


29-6 


35-6 
















TRYMEM 


1-29 


4-53 


5-91 
















TRYPLS 


1-31 


4-120 


5-97 
















TRYRGN 


1-31 


5-101 


















TSPLAS 


1-14# 




















UDARO 


1-46 


22-59* 


















UDDRO 


1-46 


22-56* 


















UNMAP 


2-21 


12-5# 


















UPARO 


1-36 


22-52* 


















UPDRO 


1-36 


22-49* 


















URO 


1-33 


4-70* 


4-159* 


5-16* 


5-181* 


20-33* 










VALADW 


1-33 


24-12 


















VCORTM 


1-38 




















VPLAS 


1-28 


4-122 


40-31 


40-43 


40-70 


42-13 


42-15* 


42-21 






VSWPFL 


1-30 


4-64 


4-118 


5-85 














W. NBAS 


1-35 


9-60* 


13-30* 


13-73* 














W. NID 


1-35 


9-45* 


13-11 


13-24 


13-27* 


13-70* 


24-27 








W. NLEN 


1-36 


10-38 


10-58 


10-62* 


13-48* 


13-60* 


13-81* 








W. NOFF 


1-36 


9-46 


10-44 


13-45* 


13-58* 


13-87* 










W. NRID 


1-37 


9-48 


10-18 


13-37* 


13-84* 












W. NSIZ 


1-35 


9-64 


13-33* 


13-79* 














W. NSTS 


1-36 
13-52* 


9-9 
13-61 


9-11* 
13-63* 


9-82 
13-89 


9-115* 
13-91* 


10-32 


10-34* 


11-20 


11-22* 


12-21 


WC**SZ 


1-33 


9-30 


9-111 


21-20 


24-36 


24-37 


31-14 


36-28 






WC*LEN 


1-34 


10-57* 


13-47 


22-21 


32-24 












WC*MAP 


1-32 


9-103 


10-30 


10-69* 


12-10 


13-38 


23-12 


23-41* 


31-11 




WC$NPR 


1-34 


10-65 


10-68* 


23-23 














WC*OFF 


1-37 


9-47* 


10-46* 


13-44 


22-23 


32-26 










WC*PAR 


1-34 


9-56* 


13-25 


22-20 


23-15 


32-23 










WC*RCB 


1-33 


9-51* 


9-110* 


11-16* 


13-35 


21-14 


21-18* 


22-19 


23-14 


32-22 


WC$SIZ 


1-34 
36-27* 


9-27 


9-75* 


9-89 


9-102* 


10-11 


10-41 


10-43 


11-15* 


13-19 


WC*TRP 


1-34 


9-43* 


23-21 


32-30 














WC$VHI 


1-34 


9-78* 


9-93 


9-95 














WC*VLO 


1-34 


9-58* 


9-93 


9-95 


13-29 












WC. FST 


1-32 




















WC. MAP 


1-32 


10-69 


















WCBBAS 


1-33 


9-25 


9-88 


21-13 


24-36 


31-10 


36-25 








WCBEND 


1-33 


9-31 


9-112 


21-21 


31-15 


36-29 










WCBMAP 


10-73 


22-1 1# 



















12-23* 



13-50 
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21-17* 
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12-17 21-16 23-8# 36-26 

13-90 
12-22 



WCBUMP 


9-107 


10-49 


10-67 


11-11 


WS. CRW 


1-35 


9-10 


9-84 




WS. ELW 


1-35 


9-10 


9-101 


11-21 


WS. MAP 


1-36 


9-119 


13-51 


13-62 


WS. OVR 


1-35 


9-85 






WS. UNM 


1-35 


9-10 


9-109 


10-33 
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DIE l-57# 29-6 35-6 

OCALL l-67# 5-121 5-123 29-31 35-28 



i 

{ 

i 



TSSWAP — TSX-Plus job 
Table of contents 
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2- 

3- 

4- 

5- 

6- 

7- 

8- 

9- 

11- 

12- 

14- 

15- 

16- 



SWAPER — Job swapper 

SWPPRI — Do job swapping based on states and priorities 

SWPFUN — Perform special swapping functions 

SWPLOK — Lock job in low memory area 

SWPRGN — Create shared global PLAS region 

SWPMEM — Do forced outswap of jobs 

OUTSWP — Outswap a job 

OSMPGO — Initiate outswap I/O operation 

INSWP — Inswap a job 

ISWPGO — Initiate inswap I/O operation 

INSFIN — Finished inswap 

SCPGET — Get a free swap command packet 

SCPFRE -=" Free a swap command packet 
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2 000000 
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5 

6 000000 075150 
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. TITLE TSSWAP — TSX-Plus job swapper 

. CSECT TSSWAP 

ENABL LC 

. ENABL AM A 

. DSABL GBL 

TSSWAP: . RAD50 /SWP/ i Overlay ID 

TSSWAP contains the routines related to job suiapping. 

Copyright (c) 1980, 1981, 1982, 1983, 1984, 1985. 
S&H Computer Systems, Inc. 
Nashville, Tennessee USA 
All rights reserved. 

Global definitions 

. GLOBL TSSWAP 

. GLOBL SWAPER, INSFIN, OUTSWP 

. GLOBL SCPGET 

Global references 

. GLOBL OVRHC, INBSY, DUTBSY 

. GLOBL RUNQHD, lOHLTM, VSWPFL, LSW6, FREMEM, Q. COMP, SWPCOT 

. GLOBL LBASE, SWPCHN, LQLINK, GETSYQ, LQUAN, MEMSWP, *INCOR 

. GLOBL LNSBLK, S«CPU, SEGOUT, *MLOCK, INTPRI, EM*SIE 

. GLOBL lASEGS, EM*SFO, LSTSL, LMEMIN, LSW, LSW7, SEGIN, LMINQ 

. GLOBL LIOHLD, *MAPOK, ENQHD, GETMEM, S**RUN, S**RT, SCPFHD 

. GLOBL *NDMEM, CS*EOF, Q. WCNT, MAPUSR, LSWPBK, SWPJOB, PSW, LIOCNT 

. GLOBL Q. BLKN, S*IOWT, LNBLKS, RUNQTL, SYQIO, VSWPSL, DOSCHD, Q. PAR 

. GLOBL LSTATE, SWPPOS, CS*ERR, VCORTM, SP«CMD, SP*JOB, EM*LMF 

. GLOBL EM*NSP, SP$LNK, RC*PAG, RC*BAS, TRYRGN. SP*DW1 

. GLOBL FORCEX, *NLOCK, S*WFM 

Macro definitions 

Macro to print an error message when a system crash occurs. 

Arguments: 
MSG =s Name of error message to print. 
ARG = (Optional) argument value to display with error message. 

. GLOBL DIEMSe, DIEARG, SYSHLT 

. MACRO DIE MSG, ARG 

MOV MSG, e#DIEMSG 

. IF NB, ARG 

MOV ARG, e#DIEARG 

. ENDC 

CALL e#SYSHLT 

. ENDM DIE 

Macro definition for call global routines residing in mapped system regions 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

.ERROR i OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80 000002 

81 000004 

82 000006 

83 000010 

84 000012 
85 

86 
87 

88 000014 

89 000015 

90 000016 
91 



000000 
000000 
000000 
000000 
000000 



000 
000 
000 



. ENDC 
CALL 
. WORD 
. ENDM 



OVRHC 
ENTADD 



iCALL THE OVERLAY HANDLER 
i SPECIFY THE ENTRY POINT 



Macros to enable and disable interrupts. 
DISABL raises the CPU priority level to 7. 
ENABL lowers the priority to the current operating 
priority which is stored in INTPRI. 





. MACRO 


DISABL 




BIS 


#340, e#psw 




. ENDM 


DISABL 




. MACRO 


ENABL 




BIC 


INTPRI, @#PSW 


/ 


. ENDM 


ENABL 


} Dati 


3 areas 




SCPQHD 


. WORD 





SCPQTL 


. WORD 





SWPSIZ 


. WORD 





SWPBLK 


. WORD 





SWPBAS 


. WORD 






i DISABLE INTERRUPTS 



RESTORE INTERRUPT STATUS 



Byte data 



LSTIN: 


. BYTE 





LSTOUT: 


. BYTE 





LSTOPR: 


. BYTE 
. EVEN 






Head of pending swap command packets 
Tail of pending swap command packets 
Number of 512-byte blocks being swapped 
Block number in swap file where I/O is to 
Page number in memory of swap area 



go 



; Last job inswapped 

> Last job outswapped 

; Last operation: 0==>0ut5wapj 



l==>Inswap 
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TSSWAP — TSX-Plus job 
SWAPER — Job swapper 
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SBTTL SWAPER — Job swapper 



005737 
001403 
004737 
103405 



OOOOOOG 
000524 ' 



004737 
103402 



000322 ' 



004737 000050 ' 



000207 



SWAPER is called to see if jobs should be swapped into or out of memory. 
The basic task of the swapper is simple: Keep in memory the highest 
priority jobs that want to run and swap out as few of the lowest priority 
jobs as necessary to accomplish this. 

SWAPER: 

See if we need to outswap any users who are waiting for memory expansion. 

i Any jobs need memory-expansion outswap? 

i Br if not 

< Do memory expansion outswap 

i Br if we started a swap 

We have finished doing all forced outswapping. 

See if there are any special swapper requests pending such as 

locking jobs in low memory or creating shared PLAS regions. 



TST 


MEMSWP 


BEQ 


12$ 


CALL 


SWPMEM 


BCS 


9* 



12*: 



CALL 
BCS 



SWPFUN 
9* 



i Check for special swapper functions 
j Br if special function started 



See if we need to do any job swapping based on job states and priorities. 

CALL SWPPRI » Do normal job swapping 

Finished 
9*: RETURN 
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— Do job swapping based 
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on states and priorities 

. SBTTL SWPPRI — Do job swapping based on states and priorities 

SWPPRI is the portion of the job swapper that is responsible for doing 
job swapping to keep in memory the jobs with the highest states and 
priorities. 



000050 
000052 



010146 
010246 



SWPPRI: MOV 
MOV 



Rl, -(SP> 
R2, -<SP) 



000054 
000062 
000066 
000070 
000076 
000100 
000106 
000110 
000114 
000116 



113701 
001507 
026127 
101103 
032761 
001404 
116101 
001365 
000473 



OOOOOOG 

OOOOOOG OOOOOOG 2*: 

OOOOOOG OOOOOOG 

OOOOOOG 



Scan down the job list from highest priority to lowest priority 
looking for a job that is ready to run but is not in memory. 

DISABL i ** Disable «« 

MOVE RUIMQHD, Rl > Get head of job list 

> Br if no jobs in list 
JUN ; Does this job want to run? 
Br if there are no ready-to-run jobs 
Is this job in memory now? 
Br if not — go try to get it in 
Advance to next job in list 
Br if more to check 
No more jobs in list 

We found a job that is ready to run but is not now in memory. 

See if there is enough free memory available to bring in the job. 



BEG 


8* 


CMP 


LSTATE<R1),#S*« 


BHI 


8* 


BIT 


#*INC0R.LSW(R1) 


BEQ 


1* 


MOVE 


LQLINK<R1)<R1 


BNE 


2« 


BR 


8« 



000120 

000126 004737 

000132 103403 



1«: 



OOOOOOG 



ENABL 

CALL 

BCS 



GETMEM 
5* 



i *« Enable «* 

J See if there is enough memory for the job 

j Br if there is not enough free memory 



There is enough free memory for the job. 
Swap it in* 



000134 004737 001250' 
000140 000465 



CALL 
BR 



INSWP 
9* 



i In swap the job 
j Finished 



There is not sufficient free memory space available for the job we want. 
See if there are some lower priority jobs that should be outswapped to 
make room. 



000142 010102 



5*: 



MOV 



R1,R2 



i Save # of job we want to bring in 



Search job list from lowest priority job toward higher priorities looking 
for a job to outswap. 



000144 
000152 
000156 
000160 
000162 



113701 
001453 
020102 
001451 



OOOOOOG 



10*: DISABL 

MOVB RUNQTL, Rl 

BEQ 8* 

11*: CMP R1,R2 

BEQ 8* 

Found a lower priority job. 
See if it is in memory now. 



i *« Disable »* 

iPoint to tail of job list 

; Br if list empty 

; Have we reached job we want to bring in? 

; If yesi there is no lower prio job to swap 



000164 032761 OOOOOOG OOOOOOG 
000172 001434 



BIT 
BEQ 



#*INCOR» LSW(R1 ) } Is the job in memory now? 



3* 



i Br if not 



I 
I 



f 
t 



i 
f 
< 
i 
t 
i 

< 
I 
i 
t 

I 
i 

I 



I < 

) 

» I 

\ 

» ( 
f 

c 

I 

> « 

h 
[ 

c 

I 

I 

i 

i 
i 

I, 

, t 
, i 

i 
I 



TSSWAP - 
SWPPRI - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



- TSX-Plus job swapper 

- Do job suapping based 



MACRO V05. 05 Wednesday 18-Jan-S9 12:11 Page 3-1 
on states and priorities 



000174 
000202 



000204 
000210 



032761 OOOOOOG OOOOOOG 
001030 



005761 OOOOOOG 
001417 



\4e cannot outsuap a job if it is locked in memory 

BIT #«MLOCK» LSW6<Rl)i Is job locked in memory? 
BNE 3* ; Br if yes 

See if job has gotten minimum core residency time since last insuiap. 



TST 
BEQ 



LMINQ<R1) 
4* 



iHas min core residency time expired? 
» Br if yes 



000212 
000220 



000222 
000226 
000232 
000234 
000240 



026227 OOOOOOG OOOOOOG 
101413 



Job has not yet gotten its minimum core residency time. 

If job uie want to inswap is in a high-priority real— time state* 

ignore the minimum core residency time and do the inswap anyway. 

CMP LSTATE<R2)/ #S*«RTi Is job we want to inswap in real-time state? 
BLOS 4* ; Br if yes 

If job is waiting for something other than I/0» ignore min core time. 



016100 
020027 
103403 
020027 
001003 



OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV LSTATE<R1),R0 

CMP RO, #S*»RUN 

BLO 22* 

CMP RO. #S*IOWT 

BNE 4« 



Get current job state 

Is job in an executable state? 

Br if yes — honor min core time 

Is job in I/O wait state? 

Br if not — ignore min core time 



We would like to outswap this job but its minimum core residency 
time prevents the swap. Set a flag that will cause the clock 
interrupt routine to recall the scheduler when the minimum core time 
expires. 



000242 
000246 



110137 OOOOOOG 
000406 



22*: MOVE R1,SWPC0T 
BR 3* 



j Set flag for clock interrupt routine 
i Don't outswap job 



000250 
000254 
000256 



105761 OOOOOOG 

001407 

012761 OOOOOOG OOOOOOG 



000264 
000270 
000272 



000274 
000302 



000306 



116101 OOOOOIG 

001333 

000405 



We want to outswap this job. 

If it has I/O active now. set flag to hold future I/O starts. 

4*: TSTB LIOCNT(Rl) i Does job have any I/O active now? 
BEQ 6* iBr if not — swap it 

MOV #I0HLTM»LI0HLD<R1)} Hold future I/O starts for job 

Job we looked at is not eligible to be outswapped. 
Try next job in list. 

3*: MOVB LQLINK+1(R1),R1 i Get # of next higher priority job 
BNE 11* iBr if one exists 

BR 8* 



We have found a job to outswap. 



004737 000634 



6*: ENABL 

CALL OUTSWP 

i We've done all we can for now 



i ** Enable «* 

; Initiate the outswap 



8*: 



ENABL 



i *« Enable ** 
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SWPPRI — Do job swapping based on states and priorities 



115 
116 

117 000314 012602 

118 000316 012601 

119 000320 000207 



9*: 



Finished 




MOV 


<SP>+, R2 


MOV 


<SP)+,R1 


RETURN 
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32 
33 
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38 
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42 
43 
44 
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000322 010546 



000324 013705 000002' 
000330 001002 



000332 000241 
000334 000405 



000336 116500 0000000 
000342 004770 000354 ' 



000346 103366 



000350 012605 
000352 000207 



000354 000360 ' 
000356 000440 ' 



. SBTTL SWPFUN — Perform special swapping functions 

SWPFUN is called after any forced outswapping is completed to perform 
any special swapping functions such as locking jobs in memory or 
allocating memory for shared PLAS regions. 
Commands to SWPFUN are queued by use of swapper command packets. 

Outputs: 
C-flag cleared ===> No special function in progress. 
C-flag set ==> Special function in progress^ 

don't start any other swapping activity. 

SWPFUN: MOV R5, -(SP> 

Get pointer to 1st pending command packet 



2*: 



MOV 
BNE 



SCPQHD, R5 
1* 



There is no pending command 



CLC 
BR 



> Get pointer to Ist pending command packet 
i Br if there is a pending command 



Say to continue normal swapping 



9* 



Call appropriate routine to process the command 



1$: 



MOVE SP*CMD(R5),R0 
CALL eSWPVEC<RO) 



; Get command value 
J Call routine 



The swapping action routines take care of freeing the command packet 
and return with the c-flag set or cleared. 

If the C-flag is cleared on return* go back and see if there is 
another command pending. 



BCC 
Finished 



9$: 



MOV 
RETURN 



2« 



(SP)+, R5 



i Br if we should resume swapping activities 



Vector of addresses for swapping action routines 



SWPVEC: 



WORD 
WORD 



SWPLOK 
SWPRGN 



i SA*LOK — Lock job in low memory 
f SA*RGN — Allocate shared region 



I 
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C 

( 

i 
I 
f 
I 

4 

i 
I 
I 

( 

i 
i 
I 



i 



TSSWAP 
SWPLOK 



— TSX-Plus job swapper MACRO V05. 05 Wednesday lS-Jan-89 12:11 Page 5 

— Lock job in low memory araa 
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. SBTTL SWPLOK 



Lock job in low memory area 



000360 010146 



000362 116501 OOOOOOG 



000366 052761 OOOOOOG OOOOOOG 
000374 042761 OOOOOOG OOOOOOG 



000402 004737 OOOOOOG 

000406 103005 

000410 



000422 004737 001250' 



000426 004737 001716' 



000432 000261 
000434 012601 
000436 000207 



SWPLOK is a swapper action routine called to swap a job into a low 
memory region and lock the job in memory. 

Inputs: 
R5 = Pointer to swapper command packet. 

Outputs: 
C-flag set =«»> Don't start any other swapping activities. 
C-flag cleared ==> OK to continue with normal swapping activities. 

SWPLOK: MOV R1,-<SP) 

Get number of job that is to be locked in memory 

MOVE SP*J0B<R5), Rl i Get # of job to lock in memory 

Set flag saying job is locked in memory 

BIS #«ML0CK>LSW6<Rl);Say job is locked in memory 
BIC #*NL0CK,LSW6<Rl)i Clear needs-lock flag 

Allocate memory space for the job. 

(NotBj the memory space should be at the bottom of memory) 

iGet memory for the job 
; We should always branch 
i Should never happen 

Swap the job into the space we allocated 

1$: CALL INSWP i Inswap the job 

Free the swap command packet 

CALL SCPFRE j Free the swap command packet 

Finished 

i Don't start any other swapping 



CALL 


GETMEM 


BCC 


1* 


DIE 


#EM*LMF 



SEC 
MOV 
RETURN 



(SP)+, Rl 
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— Create shared global PLAS region 
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SBTTL SWPRON — Create shared global PLAS region 



SWPRGN is a swapper special function routine which allocates memory 
for a shared global PLAS region after swapping jobs out of 
memory to free up space for the region. 

Inputs: 
R5 = Pointer to swapper command packet. 

Outputs: 
C-flag set ==> Don't start any other swapping activities. 
C-flag cleared =»> QK to continue with normal swapping activities. 



000440 010146 
000442 010246 



000444 016501 0000000 



000450 016100 OOOOOOG 

000454 012761 177777 OOOOOOG 

000462 004737 OOOOOOG 

000466 103404 

000470 072227 000003 

000474 010261 OOOOOOG 



000500 116501 OOOOOOG 
000504 004737 OOOOOOG 



0005 1 004737 00 1 7 1 6 ' 



000514 000241 

000516 012602 

000520 012601 

000522 000207 



SWPRGN: MOV 
MOV 



R1,-(SP) 
R2, -<SP) 



Get a pointer to the Region Control Block out of the swap command packet 

MOV SP«DW1<R5),R1 ; Get pointer to Region Control Block 

Try to allocate space for the region 

; Get # 512-bytB pages needed for region 

> Say address =-1 in case allocation fails 

j Try to allocate space for region 

i Br if cannot allocate (should never happen) 

i Convert page # to 64~byte block # 

; Save pointer to region base in RCB 

Make sure the job creating the reqion is in an executable state 



MOV 


RC*PA0<R1).R0 


MOV 


#-l,RC«BAS(Rl) 


CALL 


TRYRGN 


BCS 


1* 


ASH 


«3. R2 


MOV 


R2, RC*BAS<R1) 



1*: MOVE SP*J0B(R5),R1 
CALL FORCEX 



; Get # of job that is creating region 
iMake sure it is in executable state 



Return the swap command packet 

CALL SCPFRE i Free the command packet 

Finished 

; Say normal swapping may continue 



CLC 




MOV 


<SP)+, R2 


MOV 


(SP)+. Rl 


RETURN 
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— Do forced outswap of jobs 

. SBTTL SWPMEM — Do forced outswap of jobs 

SWPMEM is called to swap out of memory all jobs that have the *NDMEM 
flag set in LSW. 

Outputs: 
C-flag cleared =«> All flagged jobs have been outswapped. 
C-flag set ==> Some jobs remain to be swapped. 



000524 010146 
000526 010246 



000530 005002 

000532 012701 OOOOOOG 



SWPMEM: MOV 
MOV 



R 1 > - ( SP ) 
R2, -<SP) 



Begin loop that checks each job to see if it needs to be outswapped 



CLR 
MOV 



R2 
#LSTSL, Rl 



jSay not waiting on I/O to stop 
.•Get index # of last line 



See if this job needs to be outswapped 



000536 032761 OOOOOOG OOOOOOG 15*: BIT 
000544 001416 BEQ 



#*NDMEM. LSW < R 1 ) jIs this job waiting for memory expansion? 
13* / Br if not 



000546 032761 OOOOOOG OOOOOOG 
000554 001412 



000556 105761 OOOOOOG 
000562 001003 



000564 004737 000634 ' 
000570 000411 



We found a job that needs to be outswapped. 
See if it is still in memory. 

BIT #*INC0R,LSW(R1) i Is this job still in memory? 
BEQ 13* iBr if not 

The job is in memory* see if it has any I/O active. 



TSTB LIOCNT(Rl) 
BNE 14* 

Outswap this job. 



CALL 
BR 



OUTSWP 
9* 



i Does this job have any I/O active? 
iBr if yes 



} Start outswap on the job 



We cannot outswap this job because it has I/O active. 
Hold furture I/O starts for the job. 



000572 012761 OOOOOOG OOOOOOG 14*: 
000600 005202 



MOV #IOHLTM, LIOHLD<Rl);Hold I/O for this job 

INC R2 /Remember we are waiting for I/O to stop 



000602 162701 000002 

000606 001353 

000610 005702 

000612 001402 



000614 000261 
000616 000403 



i See if there are any other jobs that need to be outswapped. 

i 

13*; SUB #2, Rl i Go check next job 
BNE 1 5* 

TST R2 /Do we need to wait for I/O to stop' 

BEQ 10* iBr if not 



We have not finished all outswaps. 



9*: 



SEC 
BR 



i Signal that outswapping still needed 



11* 



i We have finished outswapping all flagged jobs 



I 
I 
f 
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i 
I 
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SWPMEM — Do forced outswap of jobs 



58 






J 




59 000620 


005037 


OOOOOOG 


10*: CLR 


MEMSWP 


60 000624 


000241 




CLC 




61 






i 




62 






i Finished 




63 






i 




64 000626 


012602 




11*: MOV 


(SP)+, 


65 000630 


012601 




MOV 


<SP)+, 


66 000632 


000207 




RETURN 





; Say no more jobs to force out of memory 
; Signal that all outswapping is finished 



I' 

( 

I 

« 

c 
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042761 OOOOOOe OOOOOOG 



TSSWAP — TSX-Plus job swapper 
OUTSWP — Outswap a job 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 

18 000634 110137 0000000 

19 000640 110137 000015' 

20 000644 105037 000016' 
21 

22 

23 

24 000650 

25 

26 

27 

28 000656 

29 000664 

30 000670 

31 000672 
32 
33 
34 

35 000676 

36 000702 

37 000704 

38 000712 
39 
40 
41 

42 000714 

43 000720 

44 000724 

45 000726 

46 000730 

47 000732 

48 000744 

49 000746 

50 000752 

51 000756 
52 
53 
54 

55 000762 

56 000770 

57 000776 



MACRO V05. 05 Wednesday lS-Jan-89 12:11 Page 8 



042761 
120137 
001002 
105037 



005761 
001404 

103036 



013702 
013700 
005720 
001406 
077203 

010140 
163700 
063700 
011061 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



016137 
016137 
016137 



OOOOOOG 000006' 
OOOOOOG 000010' 
OOOOOOG 000012' 



SBTTL OUTSWP 



Outswap a job 



OUTSWP is called to swap a job out of memory. 

The job is immediately marked as not in memory. 

When the swap completes> the memory region used by the job 

is marked as free. 

Inputs: 
Rl = Job index number of job to be outswapped. 
LBASE<R1) =s Base page number allocated to job. 
LNBLKS(Rl) = Number of pages allocated to job. 
LSWPBK<R1) « Swap file disk block # of swap area for job. 

Outputs: 
SWPBSY = Number of job being outswapped. 
MEMMAP = Updated to show area used by job is free. 



OUTSWP: MOVB 
MOVE 
CLRB 



Rl, OUTBSY 
R1>LST0UT 
LSTOPR 



i Set flag saying outswap busy 

; Save history of last job outswapped 

; Say outswap last thing done 



Mark job as no longer in memory so scheduler won't try to run it 

BIC #*INC0R.LSW(R1) ; Clear in-memory flag for the job 

Indicate that memory mapping is not set up for this job 

BIC «SMAPOKj LSW7(Rl}i Invalidate memory mapping data in contxt bik 

CMPB R1#MAPUSR i Is memory map currently loaded for this job? 

BNE 2* J Br if not 

CLRB MAPUSR i Say memory map no longer valid 

See if we have to outswap any PLAS regions for the job 



2*: 



TST 


LNSBLK<R1) 


BEQ 


1* 


OCALL 


SEOOUT 


BCC 


9* 



/Any PLAS regions associated with job? 

; Br if no PLAS regions 

i Start outswap of PLAS regions 

J Br if PLAS outswap started 



Select a slot in the swap file for this job 



1«: MOV VSWPSL, R2 

MOV SWPJOB, RO 

4*: TST (R0)+ 

BEQ 3$ 

SOB R2> 4$ 

DIE #EM*SFO 

3*: MOV R1,-(R0) 

SUB SWPJOB, RO 

ADD SWPPOS, RO 

MOV <R0),LSWPBK(R1) 



Get # job slots in swap file 

Point to table with job #'s in each slot 

Is this slot free? 

Br if yes 

Loop if more slots to check 

Swap file overflow 

Claim swap file slot for our job 

Calculate offset into table 

Point into table with block #'5 

Set block # in swap file for this job 



Set up information to control swap of job root and context block 

MOV LNBLKS<R1)/SWPSIZ J Number of 512-byte blocks to swap 

MOV LSWPBK(R1)>SWPBLK i Block number in swap file 

MOV LBASECRl >» SWPBAS i Base 512-byte block number in memory 



I 
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I 
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TSSWAP — TSX-Plus job swapper MACRO V05. 05 Wednesday 18-Jan-89 12:11 Page 8-1 
OUTSWP — Outswap a job 

58 001004 004737 001012' CALL OSWPQO ; Initiate the outswap 

59 } 

60 i Finished starting outswap 

61 ; 

62 001010 000207 9*: RETURN 



TSSWAP 
OSWPGO 



TSX-Plus 
Initiate 



job suapper 
outswap I/O 



MACRO V05 
operation 



I 
I 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



OOIOIJ 



001014 
001020 



001024 
001032 
001036 
001042 
001046 
001052 
001056 
001060 
001064 
001070 
001074 
001100 
001102 
001104 
001110 



001122 
001124 



010146 



012701 
004737 



063761 
013700 
072027 
010061 
013700 
020027 
101402 
012700 
160037 
060037 
060037 
000300 
005400 
010061 
012761 
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. SBTTL OSWPGO — Initiate outswap I/O operation 

OSWPGO is called to initiate an outswap I/O operation. 

Inputs: 
SWPSIZ = Number of 512-byte pages to be written. 
SWPBAS = Starting page number within memory 
SWPBLK = Starting block number within swap file. 



OSWPGO: MOV 



R 1 1 - ( SP ) 



Get a system I/O queue element 



OOOOOOG 
OOOOOOG 



000010' OOOOOOG 

000012' 

000003 

OOOOOOG 

000006 ' 

000177 

000177 
000006 ' 
000012' 
000010' 



OOOOOOG 
001126' OOOOOOG 



MOV #SWPCHN, Rl 
CALL GETSYQ 



> Point to system swap channel 

(Get a system I/O queue element (addr. 



in Rl) 



1*: 



Set up I/O queue element for the transfer 



) ; Set swap file b 
Get base 512-byte 
Convert to 64-byt 
Set memory addres 
Get # 512-bytB bl 
We can write a ma 
Br if we can writ 
Truncate write to 
Calc # 512-byte b 
Calc memory page 
Calc swap file bl 
Convert # blocks 
Negative ==> Writ 
Set word count in 

1) ; Set address of 



ADD 


SWPBLK, Q. BLKN(R1 


MOV 


SWPBAS, RO 


ASH 


#3>R0 


MOV 


RO, Q. PAR(Rl) 


MOV 


SWPSIZ, RO 


CMP 


RO, #127. 


BLOS 


1* 


MOV 


#127. ,R0 


SUB 


RO.. SWPSIZ 


ADD 


RO, SWPBAS 


ADD 


RO, SWPBLK 


SWAB 


RO 


NEG 


RO 


MOV 


RO, Q. WCNT(Rl) 


MOV 


#OUTCMP,Q. COMP<R 



lock number f 

block number 

e block numbe 

s in queue el 

ocks to be wr 

X of 127 per 

e all that is 

127 blocks t 

locks left to 

for next tran 

ock # for nex 

to # words to 

e operation 

I/O queue el 

I/O completi 



or transfer 

within memory 
r 

ement 
itten 
I/O operation 

left 
his time 

transfer 
sfer 
t transfer 

write 

ement 

on routine 



001116 004737 OOOOOOG 



012601 
000207 



Queue the I/O request 

CALL SYQIO ; Queue the I/O request 

Return. I/O completion will call OUTCMP. 

9*: MOV (SP)+, Rl 
RETURN 



I 
I 
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OSWPGO - 
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26 

27 

28 
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36 
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38 
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— Initiate outswap I/O operation 



001126 
001134 
001136 



001150 
001154 
001156 
001162 



001164 
001170 
001174 
001200 
001204 
001210 



032737 
001405 



Outswap I/O completion routine. 

Check for swap file I/O errors 

OOOOOOC OOOOOOG OUTCMP: BIT #CS*ERR ! CS*EOF, SWPCHN iDid any swap file I/O error occur? 

BEQ 3* i Br if not 

DIE #EM*SIE i Abort if I/O error on swap 

See if there is any part of the job remaining to be swapped 



005737 
001403 
004737 
000431 



113701 
016102 
016100 
004737 
005061 
042761 



000006 ' 
001012' 



3*: 



TST 


SWPSIZ 


BEG 


4$ 


CALL 


OSWPGO 


BR 


9* 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



OOOOOOG 



001216 
001224 
001226 
001232 



001236 
001242 
001246 



026127 
001004 
012700 
004737 



105037 
105237 
000207 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



i Any part of job remaining to be swapped? 

i Br if not 

J Initiate transfer of remainder of job 

; We will be called again when transfer ends 

Release the memory space occupied by the job just outswapped. 

MOVE OUTBSY, Rl ; Get job # being outswapped 

MOV LBASE(R1).R2 /Get base page # 

MOV LN6LKS(R1)/R0 'Get # blocks assigned to job 

CALL FREMEM ; Release the memory space 

CLR LBASE(Rl) > Say job is no longer occuping memory 

BIC #SNDMEM< LSW<R1 ) > Say job no longer needs outswap for mem expn. 

If the job is in a suspended state waiting for memory expansion, 
put in in an executable state now. 

CMP LSTATE < R 1 ) , #S*WFM » Is job waiting for memory expansion? 

BNE 2* ;Br if not 

MOV #S*CPU. RO i Requeue job in run state 

CALL ENQHD 



Finished. Request a job scheduler cycle. 



2*: 
9*: 



CLRB 
INCB 
RETURN 



OUTBSY 
DOSCHD 



> Say outswap finished 
iRequest a job scheduler cycle 



I 



I 



i 
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TSSWAP - 


— TSX-Plus job 


swapper 


MACRO vo; 


INSWP - 


— Insma 


p a job 






i 
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3 










4 










5 








i 


6 








i 


7 








i 


8 








i 


9 








i 


10 








i 


11 








i 


12 








J 


13 








* 


14 








i 


15 








1 


16 


001250 


110137 


OOOOOOG 


] 


17 


001254 


110137 


000014' 




le 


001260 


112737 


000001 


000016' 


19 










20 










21 










22 










23 










24 


001266 


005761 


OOOOOOG 




25 


001272 


001500 






26 








* 


27 








• 


28 








i 


29 








; 


30 


001274 


016137 


OOOOOOG 


000006 ' 


31 


001302 


016137 


OOOOOOG 


000010' 


32 


001310 


016137 


OOOOOOG 


000012' 


33 








J 


34 








J 


35 








i 


36 


001316 


004737 


001324' 




37 








} 


38 








i 


39 








i 


40 


001322 


000207 







. SBTTL INSWP — Inswap a job 

INSWP is called to initiate the inswap of a job. 

Inputs: 
Rl = Job index number of job to be inswapped. 
LBASE<R1) = Base page assigned to the job. 
LNBLKS<R1)= # 256-word pages currently used by job. 
LMEMIN(R1)= # 256-word pages to be assigned to job after inswap. 
LSWPBJ(R1)= Disk file block number where job is stored. 

Outputs: 
LNBLKS(Rl) is set to LMEMIN(Rl) after swap finishes (used for 
memory expansion) 



INSWP: 



MDVB 


Rl, INBSY 


MOVE 


Rl/LSTIN 


MOVE 


#1.LST0PR 



i Say an inswap is in progress 

; Remember last job inswapped 

; Remember inswap was last operation 



If there are no blocks assigned to the job/ then we are initializing 
the job and there is nothing to be read into memory. In this case, 
call the completion routine. 



TST LNBLKS<R1) 
BEQ INCMP2 



>Any blocks assigned to job? 

i Br if not — Go call completion routine 



We need to do an inswap for the job. 

Set up information to describe the I/O transfer 

MOV LNBLKS<R1)»SWPSIZ i Number of 512-byte blocks to read 
MOV LSWPBK(R1),SWPBLK ; Starting block number in swap file 
MOV LBASE(Rl}f SWPBAS {Starting page number in memory 

Initiate the I/O operation 

CALL ISWPGO 
Finished 

RETURN 



J Start the inswap 



i 
i 



i 
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i 



i 

f 
f 



€ 

I, 



TSSWAP 
ISWPGO 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



001326 
001332 



001336 
001344 
001350 
001354 
001360 
001364 
001370 
001372 
001376 
001402 
001406 
001412 
001414 
001420 



001432 
001434 



. SBTTL ISWPOO — Initiate inswap I/O operation 
ISWPGO is called to initiate an inswap I/O operation. 



Inputs: 
SWPBAS 
SWPSIZ 
SWPBLK 



Base 512-byte page number of job 
Number of 512-byte pages to read. 
Base block number in swap file. 



m memory. 



001324 010146 



ISWPGO: MOV R1,-(SP) 

i Get a system I/O queue element 



012701 
004737 



063761 
013700 
072027 
010061 
013700 
020027 
101402 
012700 
160037 
060037 
060037 
000300 
010061 
012761 



OOOOOOG 
OOOOOOG 



000010' 

000012' 

000003 

OOOOOOG 

000006 ' 

000177 

000177 
000006 ' 
000012' 
000010' 

OOOOOOG 
001436' 



MOV #SWPCHN, Rl 
CALL GETSYQ 



» Get address of swap file channel 
; Get a system I/O queue element 



Set up I/O queue element for the transfer 



OOOOOOG 



1*: 



OOOOOOG 



ADD SWPBLK, Q. BLKN < R 1 

MOV SWPBAS, RO 

ASH #3, RO 

MOV RO, Q. PAR<R1> 

MOV SWPSIZ, RO 

CMP RO, #127. 

BLOS 1« 

MOV #127. ,R0 

SUB RO, SWPSIZ 

ADD RO, SWPBAS 

ADD RO, SWPBLK 

SWAB RO 

MOV RO, Q. WCNT(Rl) 

MOV #INCMP,Q. C0MP<R1 



) ; Set base 
i Get memory 
i Convert to 
i Set memory 
iCet # 512-b 
i Can 't read 
j Br if can r 
i Truncate an 
i Calc # bloc 
; Calc memory 
; Calc swap f 
jCvt # block 
i Set word co 
); Set addres 



block number in swap file 

page number 

64-byte page number 

address in I/O queue element 

yte pages to read 

more than 127 per I/O operation 

ead remainder of program this time 

d only read 127 this time 

ks left to read next time 

base address for next transfer 
ile block number for next transfer 
s to # words to read 
unt in I/O queue element 
s of I/O completion routine 



001426 004737 OOOOOOG 



Queue the I/O request 

CALL SYQIO 

Return for now. 

I/O completion will call INCMP. 



Initiate the I/O operation 



012601 
000207 



MOV 
RETURN 



<SP)+, Rl 
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TSSWAP - 


— TSX-P 


lus job 


suiapper 


ISWPGO - 


— Initiate inswap I/O o 


1 
2 








3 








4 








5 








6 


001436 


032737 


OOOOOOC 


7 


001444 


001405 




8 


001446 






9 








10 








11 








12 


001460 


005737 


000006 ' 


13 


001464 


001403 




14 


001466 


004737 


001324' 


15 


001472 


000207 




16 








17 








IS 








19 








20 


001474 


113701 


OOOOOOG 


21 


001500 


016100 


OOOOOOG 


22 


001504 


166100 


OOOOOOG 


23 


001510 


010061 


OOOOOOG 


24 








25 








26 








27 


001514 


005761 


OOOOOOG 


28 


001520 


001407 




29 


001522 






30 


001530 






31 


001536 


103004 




32 








33 








34 








35 


001540 


113701 


OOOOOOG 


36 


001544 


004737 


001552' 


37 


001550 


000207 





Inswap I/O completion routine. 

Check for sutap file I/O errors 

OOOOOOG INCMP: BIT #CS*ERR ! CS*EOF, SWPCHN iDid any swap file I/O error occur? 

BEQ 1* } Br if not 

DIE #EM$SIE i Abort system if swap file I/O error 

See if there is more of job root remaining to be inswapped. 

1*: TST SUIPSIZ i Is any part of job remaining to be read? 

; Br if not 

i Start read of rest of job 
i We will be called again when that I/O ends 

Set # of pages in use by job in case it was outswapped due to a 
memory expansion request. 



TST 


SUPS I Z 


BEQ 


INCMP2 


CALL 


ISWPGO 


RETURN 





INCMP2: MOVE 
MOV 
SUB 
MOV 



INBSY, Rl 
LMEMIN(R1>*R0 
LNSBLK<R1)»R0 
RO. LNBLKS(Rl) 



Get index number of job being inswapped 
Get total # 512-byte pages used by job 
Subtract # pages used by PLAS regions 
Set # pages used by root of job 



See if we need to inswap any PLAS regions for this job 



TST 


LNSBLK<R1) 


BEG 


2« 


OCALL 


lASEGS 


OCALL 


SEGIN 


BCC 


9* 



Mark job as in memory now. 



2*: 
9*: 



MOVB 
CALL 
RETURN 



INBSY, Rl 
INSFIN 



• Any PLAS segments to inswap? 

i Br if not 

i Set up memory addresses for PLAS regions 

i Start inswap of PLAS regions 

i Br if PLAS inswap started 



iGet # of job being inswapped 
i Finished inswap 
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052761 OOOOOOG OOOOOOG 



TSSWAP — TSX-Plus job swapper 
INSFIN — Finished inswap 

1 

2 

3 

4 

5 

6 

7 

8 001552 010246 

9 
10 
11 

12 001554 
13 
14 
15 

16 001562 013702 OOOOOOG 

17 001566 013700 OOOOOOG 
le 001572 020122 

19 001574 001402 

20 001576 077003 
001600 000401 
001602 005042 

23 
24 
25 

26 001604 013761 OOOOOOG 

27 001612 005061 OOOOOOG 
28 
29 
30 

31 001616 105037 OOOOOOG 

32 001622 105237 OOOOOOG 
33 
34 
35 

36 001626 012602 

37 001630 000207 
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. SBTTL INSFIN — Finished inswap 

INSFIN is called when we have finished doing an inswap for a job. 

Inputs: 
Rl = Index number of job that was inswapped. 

INSFIN: MOV R2, -<SP) 

Say job is in memory now 

BIS #«INCOR> LSW(Ri > ; Say it is in memory now 

Say slot in swap file is now free 



21 
22 



1*: 



2*: 



MOV SWPJOB, R2 

MOV VSWPSL, RO 

CMP Rl, <R2)+ 

BEQ 2$ 

SOB RO. 1$ 

BR 3* 

CLR -(R2) 



Point to table with job #'s in swap file 

Get # slots in swap file 

Search for job # in swap file table 

Br if found 

Loop if more to check 

Job must have been created without swapping 

Say swap file slot is free 



Set minimum in-core run-time for job. 



OOOOOOG 3*: 



MOV VCORTM. LMINQ(Rl)i Must run this much before outswap 
CLR LQUAN(Rl) > Initialize job's time quantum 



Request a job scheduler cycle. 



CLRB 


INBSY 


INCB 


DOSCHD 


Finished 




MOV 


<SP)+, R2 


RETURN 





; Say inswap is finished 
/Request a job scheduler cycle 
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— Get a free suiap command packet 

. SBTTL SCPGET — Get a free swap command packet 



001632 



001632 013705 
001636 001422 



SCPGET is called to get a free swap command packet. 

A system crash occurs if there are no free packets. 

The packet that is acquired is linked onto the queue of pending 

packets. 

Outputs: 
R5 = Address of free packet. 

SCPGET: 

Get 1st packet off of free list. 



OOOOOOG 



MOV 
BEQ 



SCPFHD, R5 
10* 



i Get pointer to 1st free packet 
; Br if there are no free packets 



001640 016537 OOOOOOG OOOOOOG 



001646 013700 000004' 

001652 001403 

001654 010560 OOOOOOG 

001660 000402 

001662 010537 000002' 

001666 010537 000004' 

001672 005065 OOOOOOG 

001676 105237 OOOOOOG 



001702 000207 



001704 



Remove packet from free list 

MOV SP*LNK(R5),SCPFHD ; Remove packet from free list 

Add packet to tail of pending list 

/Point to last entry in queue 

; Br if queue is empty 

iMake current end of tail point to us 





MOV 


SCPQTL, RO 




BEQ 


1* 




MOV 


R5, SP*LNK<RO) 




BR 


2* 


1*: 


MOV 


R5, SCPQHD 


2*: 


MOV 


R5, SCPQTL 




CLR 


SP*LNK<R5) 




INCB 


DOSCHD 



; We are only entry in list 
; We are new end of list 
; Say no packet follows us 
;Request a job scheduler cycle 

i 

i Finished 

RETURN 
> 
; Error — There are no free swap command packets 

i 

10*: DIE #EM*NSP i System crash — No free swap command packets 



f 

I 



f 
I 



TSSWAP -- TSX-Plus job swapper MACRO V05. 05 Wednesday 18-Jan-89 12:11 Page 16 
SCPFRE — Free a suiap command packet 



1 

2 

3 

4 

5 

6 

7 

8 001716 

9 
10 
11 

12 001716 016537 OOOOOOS 000002' 

13 001724 001002 

14 001726 005037 000004' 
15 
16 
17 

18 001732 013765 OOOOOOG OOOOOOG 1*: 

19 001740 010537 OOOOOOG 

20 001744 000207 

21 000001 
Errors detected: 

»*♦ Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 246 Words < 1 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:17.20 

, LP: TSSWAP«DK: TSSWAP /C/N: SYM 



. SBTTL SCPFRE — Free a swap command packet 

SCPFRE is called to return a swap command packet to the free list. 

Inputs: 
R5 = Pointer to packet to be freed. 

SCPFRE: 

Remove command packet from pending list 

MOV SP*LNK<R5>, SCPQHD i Make next packet be 1st pending one 
BNE 1* j Br if there is another pending packet 

CLR SCPQTL > No packets in queue 

Add packet to free list 

MOV SCPFHD, SP*LNK<R5) i Add packet to free list 
MOV R5, SCPFHD 
RETURN 
. END 



I 

i 
t 

f 
I 

I 
I 
i 
i 
I 

i 
i 
< 



{ 



i 
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Cross reference table (CREF V05. 05) 



I 



*INCOR 


1-25 


3-18 


3-56 


7-26 


8- 


-24 


14-12 


*MAPOK 


1-28 


8-28 












*MLOCK 


1-26 


3-61 


5-21 










*NDMEM 


1-29 


7-20 


10-24 










*NLOCK 


1-33 


5-22 












CS*EOF 


1-29 


10-6 


13-6 










CS*ERR 


1-31 


10-6 


13-6 










DIEARG 


1-43 














DIEMSG 


1-43 


5-29* 


8-47* 


10-8* 


13- 


-8* 


1 5-39* 


DOSCHD 


1-30 


10-37* 


14-32* 


15-31* 








EM*LMF 


1-31 


5-29 












EM*NSP 


1-32 


15-39 












EM*SFO 


1-27 


8-47 












EM*SIE 


1-26 


10-8 


13-8 










ENQHD 


1-28 


10-32 












FORCEX 


1-33 


6-33 












FREMEM 


1-24 


10-22 












GETMEM 


1-28 


3-29 


5-27 










GETSYQ 


1-25 


9-15 


12-15 










lASEGS 


1-27 


13-29 












INBSY 


1-23 


11-16* 


13-20 


13-35 


14- 


-31* 




INC MP 


12-32 


13-6# 












INCMP2 


11-25 


13-13 


13-20# 










INSFIN 


1-18 


13-36 


14-8# 










INSWP 


3-35 


5-33 


11-16# 










INTPRI 


1-26 


3-28 


3-108 


3-113 








lOHLTM 


1-24 


3-97 


7-42 










ISWPGO 


11-36 


12-10# 


13-14 










LEASE 


1-25 


8-57 


10-20 


10-23* 


11- 


-32 




LIOCNT 


1-29 


3-95 


7-31 










LIOHLD 


1-28 


3-97* 


7-42* 










LMEMIN 


1-27 


13-21 












LMINQ 


1-27 


3-66 


14-26* 










LNBLKS 


1-30 


8-55 


10-21 


11-24 


11- 


-30 


13-23* 


LNSBLK 


1-26 


8-35 


13-22 


13-27 








LQLINK 


1-25 


3-20 


3-102 










LQUAN 


1-25 


14-27* 












LSTATE 


1-31 


3-16 


3-73 


3-78 


10- 


-29 




LSI IN 


1-8S# 


11-17* 












LSTOPR 


l-90# 


8-20* 


11-18* 










LSTOUT 


1-S9# 


8-19* 












LSTSL 


1-27 


7-16 












LSW 


1-27 


3-18 


3-56 


7-20 


7- 


-26 


8-24* 


LSW6 


1-24 


3-61 


5-21* 


5-22* 








LSW7 


1-27 


8-28* 












LSWPBK 


1-29 


8-51* 


8-56 


11-31 








MAPUSR 


1-29 


8-29 


S-31* 










MEMSWP 


1-25 


2-12 


7-59* 










OSWPGO 


8-58 


9-10# 


10-14 










OUTBSY 


1-23 


8-18* 


10-19 


10-36* 








DUTCMP 


9-33 


10-6# 












OUTSWP 


1-18 


3-109 


7-36 


8-18# 








OVRHC 


1-23 


8-37 


13-29 


13-30 








PSW 


1-29 


3-13* 


3-28* 


3-47* 


3- 


■108* 


3-113* 


Q. BLKN 


1-30 


9-19* 


12-19* 










Q. COMP 


1-24 


9-33* 


12-32* 











10-24* 14-12* 



I ( 

I 



I 

I 



i 

i 

t i 
i 



I 
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^ Cross reference table <CREF V05. 05) 



\ ^ Q. PAR 1-30 9-22* 12-22# 

Q. WCNT 1-29 9-32* 12-31* 

' RC*BAS 1-32 6-24* 6-28* 

• RC*PAG 1-32 6-23 

RUNQHD 1-24 3-14 

RUNQTL 1-30 3-48 

I ' S**RT 1-28 3-73 

I S**RUN 1-28 3-16 3-79 

S*CPU 1-26 10-31 



S*IOWT 1-30 3-81 
S*WFM 1-33 10-29 
SCPFHD 1-28 15-15 15-20* 16-18 16-19* 



* SCPFRE 5-37 6-37 16-8# 
SCPGET 1-19 15-1 1# 

SCPQHD l-80# 4-17 15-28* 16-12* 

' SCPQTL 1-81# 15-24 15-29* 16-14* 

BEGIN 1-27 13-30 

SEGOUT 1-26 8-37 

* SP*CMD 1-31 4-27 
SP*DW1 1-32 6-19 

► SP*JOB 1-31 5-17 6-32 

* SP*LNK 1-32 15-20 15-26* 15-30* 16-12 16-18* 



SWAPER 1-18 2-8# 

SWPBAS l-84# 8-57* 9-20 9-28* 11-32* 12-20 12-28* 



I ' SWPBLK l-83# 8-56* 9-19 9-29* 11-31* 12-19 12-29* 

SWPCHN 1-25 9-14 10-6 12-14 13-6 

r SWPCOT 1-24 3-89* 

^ SWPFUN 2-21 4-13# 

I SWPJOB 1-29 8-43 8-49 14-16 

. SWPLOK 4-44 5-13# 

« SWPMEM 2-14 7-10# 

> SWPPOS 1-31 8-50 

SWPPRI 2-26 3-7# 

« SWPRGN 4-45 6-14# 

SWPSIZ l-82# 8-55* 9-23 9-27* 10-12 11-30* 12-23 12-27* 13-12 

SWPVEC 4-28 4-44# 

< SYQID 1-30 9-37 12-36 

SYSHLT 1-43 5-29 8-47 10-8 13-8 15-39 

TRYRGN 1-32 6-25 

* TSSWAP l-6# 1-17 

VCORTM 1-31 14-26 



VSWPFL 1-24 

VSWPSL 1-30 8-42 14-17 



I 

i 

i 
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Cross reference table <CREF V05. 05) 

13-8 15-39 



DIE 


l-44# 


5-29 


8-47 


10-8 


DISABL 


l-69# 


3-13 


3-47 




ENABL 


l-73# 


3-28 


3-108 


3-113 


OCALL 


1-S4# 


8-37 


13-29 


13-30 



, « 



